Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter. More...

Detailed Description

Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter.

See the documentation of setFFTI for more details.

Parameters

[in]

data

: The input contiguous vector of arbitrary size of,

type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),

containing the periodic sequence whose FFT is to be computed.

Returns: fft : The output vector of the same type, kind, and size as the input data, containing the FFT result.

Possible calling interfaces ⛓

: use pm_fftpack, only: getFFTI

fft = getFFTI(data(:))

pm_fftpack::getFFTI
Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex...
Definition: pm_fftpack.F90:1567

pm_fftpack
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftpack.F90:205

Remarks: The procedures under discussion are impure.

Note: This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.

See also: getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI

Example usage ⛓

: 1program example

2

3 use pm_kind, only: SK, IK, LK

4 use pm_io, only: display_type

5 use pm_fftpack, only: getfactorFFT

6 use pm_fftpack, only: getFFTF, getFFTI

7 use pm_distUnif, only: getUnifRand

8 use pm_mathCompare, only: isClose

9 use pm_err, only: setAsserted

10

11 implicit none

12

13 integer(IK) :: i

14 integer(IK) :: lenData

15 type(display_type) :: disp

16 disp = display_type(file = "main.out.F90")

17

18 do i = 1, 5

19 block

20 use pm_kind, only: TKC => CK32

21 real(TKC) :: reltol

22 complex(TKC), allocatable :: data(:), adat(:)

23 call disp%show("lenData = getUnifRand(5, 100)")

24 lenData = getUnifRand(5, 100)

25 call disp%show("lenData")

26 call disp%show( lenData )

27 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

28 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

29 call disp%show("data")

30 call disp%show( data )

31 call disp%skip()

32 call disp%show("adat = getFFTI(getFFTF(data))")

33 adat = getFFTI(getFFTF(data))

34 call disp%show("adat")

35 call disp%show( adat )

36 call disp%show("reltol = sqrt(epsilon(1._TKC))")

37 reltol = sqrt(epsilon(1._TKC))

38 call disp%show("reltol")

39 call disp%show( reltol )

40 call disp%show("isClose(data, adat, reltol = reltol)")

41 call disp%show( isClose(data, adat, reltol = reltol) )

42 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

43 call setAsserted(all(isClose(data, adat, reltol = reltol)))

44 call disp%skip()

45 end block

46

47 block

48 use pm_kind, only: TKC => CK64

49 real(TKC) :: reltol

50 complex(TKC), allocatable :: data(:), adat(:)

51 call disp%show("lenData = getUnifRand(5, 100)")

52 lenData = getUnifRand(5, 100)

53 call disp%show("lenData")

54 call disp%show( lenData )

55 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

56 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

57 call disp%show("data")

58 call disp%show( data )

59 call disp%skip()

60 call disp%show("adat = getFFTI(getFFTF(data))")

61 adat = getFFTI(getFFTF(data))

62 call disp%show("adat")

63 call disp%show( adat )

64 call disp%show("reltol = sqrt(epsilon(1._TKC))")

65 reltol = sqrt(epsilon(1._TKC))

66 call disp%show("reltol")

67 call disp%show( reltol )

68 call disp%show("isClose(data, adat, reltol = reltol)")

69 call disp%show( isClose(data, adat, reltol = reltol) )

70 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

71 call setAsserted(all(isClose(data, adat, reltol = reltol)))

72 call disp%skip()

73 end block

74

75 block

76 use pm_kind, only: TKC => CK128

77 real(TKC) :: reltol

78 complex(TKC), allocatable :: data(:), adat(:)

79 call disp%show("lenData = getUnifRand(5, 100)")

80 lenData = getUnifRand(5, 100)

81 call disp%show("lenData")

82 call disp%show( lenData )

83 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

84 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

85 call disp%show("data")

86 call disp%show( data )

87 call disp%skip()

88 call disp%show("adat = getFFTI(getFFTF(data))")

89 adat = getFFTI(getFFTF(data))

90 call disp%show("adat")

91 call disp%show( adat )

92 call disp%show("reltol = sqrt(epsilon(1._TKC))")

93 reltol = sqrt(epsilon(1._TKC))

94 call disp%show("reltol")

95 call disp%show( reltol )

96 call disp%show("isClose(data, adat, reltol = reltol)")

97 call disp%show( isClose(data, adat, reltol = reltol) )

98 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

99 call setAsserted(all(isClose(data, adat, reltol = reltol)))

100 call disp%skip()

101 end block

102

103 block

104 use pm_kind, only: TKC => RK32

105 real(TKC) :: reltol

106 real(TKC), allocatable :: data(:), adat(:)

107 call disp%show("lenData = getUnifRand(5, 100)")

108 lenData = getUnifRand(5, 100)

109 call disp%show("lenData")

110 call disp%show( lenData )

111 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

112 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

113 call disp%show("data")

114 call disp%show( data )

115 call disp%skip()

116 call disp%show("adat = getFFTI(getFFTF(data))")

117 adat = getFFTI(getFFTF(data))

118 call disp%show("adat")

119 call disp%show( adat )

120 call disp%show("reltol = sqrt(epsilon(1._TKC))")

121 reltol = sqrt(epsilon(1._TKC))

122 call disp%show("reltol")

123 call disp%show( reltol )

124 call disp%show("isClose(data, adat, reltol = reltol)")

125 call disp%show( isClose(data, adat, reltol = reltol) )

126 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

127 call setAsserted(all(isClose(data, adat, reltol = reltol)))

128 call disp%skip()

129 end block

130

131 block

132 use pm_kind, only: TKC => RK64

133 real(TKC) :: reltol

134 real(TKC), allocatable :: data(:), adat(:)

135 call disp%show("lenData = getUnifRand(5, 100)")

136 lenData = getUnifRand(5, 100)

137 call disp%show("lenData")

138 call disp%show( lenData )

139 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

140 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

141 call disp%show("data")

142 call disp%show( data )

143 call disp%skip()

144 call disp%show("adat = getFFTI(getFFTF(data))")

145 adat = getFFTI(getFFTF(data))

146 call disp%show("adat")

147 call disp%show( adat )

148 call disp%show("reltol = sqrt(epsilon(1._TKC))")

149 reltol = sqrt(epsilon(1._TKC))

150 call disp%show("reltol")

151 call disp%show( reltol )

152 call disp%show("isClose(data, adat, reltol = reltol)")

153 call disp%show( isClose(data, adat, reltol = reltol) )

154 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

155 call setAsserted(all(isClose(data, adat, reltol = reltol)))

156 call disp%skip()

157 end block

158

159 block

160 use pm_kind, only: TKC => RK128

161 real(TKC) :: reltol

162 real(TKC), allocatable :: data(:), adat(:)

163 call disp%show("lenData = getUnifRand(5, 100)")

164 lenData = getUnifRand(5, 100)

165 call disp%show("lenData")

166 call disp%show( lenData )

167 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

168 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

169 call disp%show("data")

170 call disp%show( data )

171 call disp%skip()

172 call disp%show("adat = getFFTI(getFFTF(data))")

173 adat = getFFTI(getFFTF(data))

174 call disp%show("adat")

175 call disp%show( adat )

176 call disp%show("reltol = sqrt(epsilon(1._TKC))")

177 reltol = sqrt(epsilon(1._TKC))

178 call disp%show("reltol")

179 call disp%show( reltol )

180 call disp%show("isClose(data, adat, reltol = reltol)")

181 call disp%show( isClose(data, adat, reltol = reltol) )

182 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

183 call setAsserted(all(isClose(data, adat, reltol = reltol)))

184 call disp%skip()

185 end block

186 end do

187

188end program example

pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4106

pm_err::setAsserted
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735

pm_err::show
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1617

pm_fftpack::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftpack.F90:746

pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11074

pm_mathCompare::isClose
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
Definition: pm_mathCompare.F90:523

pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274

pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52

pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252

pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:10962

pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:28

pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:281

pm_kind::RK32
integer, parameter RK32
The real kind for a 32-bits container.
Definition: pm_kind.F90:294

pm_kind::CK64
integer, parameter CK64
The complex kind for a 64-bits container.
Definition: pm_kind.F90:290

pm_kind::CK128
integer, parameter CK128
The complex kind for a 128-bits container.
Definition: pm_kind.F90:289

pm_kind::CK32
integer, parameter CK32
The complex kind for a 32-bits container.
Definition: pm_kind.F90:291

pm_kind::RK64
integer, parameter RK64
The real kind for a 64-bits container.
Definition: pm_kind.F90:293

pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:280

pm_kind::RK128
integer, parameter RK128
The real kind for a 128-bits container.
Definition: pm_kind.F90:292

pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:279

pm_mathCompare
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Definition: pm_mathCompare.F90:205

pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10228

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_intel* -o main.exe

4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe

2set PATH=..\..\..\lib;%PATH%

3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte_fortran_*_intel*.lib /exe:main.exe

4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_gnu* -o main.exe

4./main.exe

Example output ⛓
1lenData = getUnifRand(5, 100)

2lenData

3+46

4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

5data

6(+1.76271379, +0.523274243), (+1.00636923, +0.808944523), (+1.15639186, +0.283276975), (+1.54260433, +0.544270873E-1), (+1.31698442, +0.475986540), (+1.73867679, +0.537129402), (+1.67998934, +0.587821066), (+1.15958345, +0.575214744), (+1.22934890, +0.269580364), (+1.15189743, +0.549704015), (+1.89954138, +0.988202453), (+1.82976472, +0.253537536), (+1.77700090, +0.860688388), (+1.17343664, +0.608994246), (+1.64042604, +0.785541952), (+1.59875822, +0.840717435), (+1.67338860, +0.274856269), (+1.70548260, +0.809564590E-1), (+1.11947465, +0.412048280), (+1.30840755, +0.156228840), (+1.13520241, +0.568900108E-1), (+1.62735379, +0.655064344), (+1.23235941, +0.901442766E-1), (+1.64581966, +0.427029967), (+1.01368368, +0.163668156), (+1.58772457, +0.446148574), (+1.05669570, +0.658543348), (+1.50922251, +0.992491663), (+1.05996442, +0.210530221), (+1.67899728, +0.396301210), (+1.48163962, +0.164502919), (+1.64638495, +0.859953105), (+1.16959250, +0.566785753), (+1.17094278, +0.157833040), (+1.60756779, +0.854327202), (+1.28218818, +0.129401624), (+1.53790259, +0.180891514), (+1.87608004, +0.818744659), (+1.06048679, +0.775390863E-2), (+1.88754976, +0.805040121), (+1.61379147, +0.565259993), (+1.93883419, +0.592070222), (+1.91702580, +0.539803207), (+1.62130272, +0.978653967), (+1.14870417, +0.139577448), (+1.13696861, +0.766234696)

7

8adat = getFFTI(getFFTF(data))

9adat

10(+1.76271379, +0.523274183), (+1.00636911, +0.808944523), (+1.15639162, +0.283277005), (+1.54260421, +0.544271469E-1), (+1.31698418, +0.475986540), (+1.73867655, +0.537129402), (+1.67998910, +0.587821066), (+1.15958321, +0.575214863), (+1.22934878, +0.269580483), (+1.15189731, +0.549704194), (+1.89954114, +0.988202512), (+1.82976484, +0.253537565), (+1.77700078, +0.860688329), (+1.17343664, +0.608994305), (+1.64042616, +0.785541952), (+1.59875810, +0.840717316), (+1.67338848, +0.274856329), (+1.70548248, +0.809564218E-1), (+1.11947429, +0.412048250), (+1.30840755, +0.156228736), (+1.13520205, +0.568899699E-1), (+1.62735415, +0.655064464), (+1.23235929, +0.901443362E-1), (+1.64581966, +0.427029938), (+1.01368356, +0.163668185), (+1.58772445, +0.446148545), (+1.05669534, +0.658543408), (+1.50922263, +0.992491722), (+1.05996406, +0.210530236), (+1.67899740, +0.396301150), (+1.48163950, +0.164502919), (+1.64638484, +0.859953105), (+1.16959238, +0.566785812), (+1.17094290, +0.157833055), (+1.60756791, +0.854327261), (+1.28218818, +0.129401639), (+1.53790247, +0.180891573), (+1.87608027, +0.818744779), (+1.06048656, +0.775386998E-2), (+1.88754976, +0.805040181), (+1.61379111, +0.565259933), (+1.93883407, +0.592070282), (+1.91702545, +0.539803207), (+1.62130225, +0.978653789), (+1.14870405, +0.139577389), (+1.13696885, +0.766234696)

11reltol = sqrt(epsilon(1._TKC))

12reltol

13+0.345266977E-3

14isClose(data, adat, reltol = reltol)

15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

16call setAsserted(all(isClose(data, adat, reltol = reltol)))

17

18lenData = getUnifRand(5, 100)

19lenData

20+41

21data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

22data

23(+1.1328221247212542, +0.48422653808799609), (+1.7481658112371687, +0.11612212558665014), (+1.5079975241857644, +0.70784491538319649), (+1.4410511665462002, +0.65580717253586718), (+1.0713331349893385, +0.23680543881670313), (+1.1997262942874087, +0.24077407269552775), (+1.9155717316906014, +0.64586012529021741E-1), (+1.5557995025228610, +0.14651268569734188), (+1.7515969432869765, +0.10736251028497856), (+1.0485140467657219, +0.99384544356367988), (+1.1407574721005360, +0.12414786563920255E-1), (+1.5877110494223741, +0.61606581343613454), (+1.3325979496164484, +0.77773241218105149), (+1.9629466564121789, +0.50219496576697831), (+1.1110879366014523, +0.19603783079338855E-1), (+1.4529009725081652, +0.92789018336910800), (+1.2358961869507317, +0.14449042972999071), (+1.7833596524766349, +0.96931644033849351E-1), (+1.6673821288731514, +0.23687498922717953), (+1.2644610187492855, +0.35728043184138447), (+1.9348954833976018, +0.86767739698683344), (+1.7035961222763107, +0.59046419244682680E-1), (+1.0233720235157757, +0.19354355129216949), (+1.4658113531585597, +0.54059206115517078), (+1.2493665199583228, +0.27073422982735151), (+1.6786190078949810, +0.67845681535969471), (+1.3589042535825646, +0.48052563102328205), (+1.7819830685653133, +0.17810530325814422), (+1.7946522361448809, +0.63190732835875951), (+1.7680544943773771, +0.31776168657979786), (+1.2590808062385559, +0.61485654855363281E-1), (+1.6006587707000426, +0.62969721996715244), (+1.4646002228190178, +0.56350157637436482), (+1.0106686123861526, +0.10599163010991064E-1), (+1.7348120334390014, +0.90385481495899400), (+1.6488470611500869, +0.13637173408046255), (+1.6891983891107278, +0.11669046349810730), (+1.2573138559622283, +0.41014201220556701), (+1.0036766696635167, +0.34490939871219217), (+1.2015916933371875, +0.82450997767331691), (+1.0785925112430366, +0.36687899119368750)

24

25adat = getFFTI(getFFTF(data))

26adat

27(+1.1328221247212555, +0.48422653808799648), (+1.7481658112371679, +0.11612212558665008), (+1.5079975241857642, +0.70784491538319649), (+1.4410511665462007, +0.65580717253586729), (+1.0713331349893378, +0.23680543881670299), (+1.1997262942874092, +0.24077407269552764), (+1.9155717316906005, +0.64586012529021505E-1), (+1.5557995025228610, +0.14651268569734177), (+1.7515969432869765, +0.10736251028497874), (+1.0485140467657221, +0.99384544356367976), (+1.1407574721005362, +0.12414786563920041E-1), (+1.5877110494223741, +0.61606581343613442), (+1.3325979496164482, +0.77773241218105138), (+1.9629466564121791, +0.50219496576697842), (+1.1110879366014528, +0.19603783079338702E-1), (+1.4529009725081656, +0.92789018336910800), (+1.2358961869507317, +0.14449042972999077), (+1.7833596524766351, +0.96931644033849212E-1), (+1.6673821288731518, +0.23687498922717942), (+1.2644610187492857, +0.35728043184138430), (+1.9348954833976029, +0.86767739698683333), (+1.7035961222763116, +0.59046419244682576E-1), (+1.0233720235157759, +0.19354355129216930), (+1.4658113531585604, +0.54059206115517111), (+1.2493665199583226, +0.27073422982735151), (+1.6786190078949812, +0.67845681535969449), (+1.3589042535825648, +0.48052563102328211), (+1.7819830685653137, +0.17810530325814417), (+1.7946522361448818, +0.63190732835875973), (+1.7680544943773766, +0.31776168657979798), (+1.2590808062385559, +0.61485654855363302E-1), (+1.6006587707000430, +0.62969721996715233), (+1.4646002228190182, +0.56350157637436493), (+1.0106686123861526, +0.10599163010990927E-1), (+1.7348120334390014, +0.90385481495899400), (+1.6488470611500861, +0.13637173408046219), (+1.6891983891107285, +0.11669046349810731), (+1.2573138559622279, +0.41014201220556684), (+1.0036766696635169, +0.34490939871219212), (+1.2015916933371873, +0.82450997767331702), (+1.0785925112430359, +0.36687899119368728)

28reltol = sqrt(epsilon(1._TKC))

29reltol

30+0.14901161193847656E-7

31isClose(data, adat, reltol = reltol)

32T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

33call setAsserted(all(isClose(data, adat, reltol = reltol)))

34

35lenData = getUnifRand(5, 100)

36lenData

37+49

38data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

39data

40(+1.32494795964994924867676093218767806, +0.839972263011768533227240866792530058), (+1.98637540660073405706215186946251612, +0.613618931481727713823299212099069551), (+1.42073427449419589235834568261924701, +0.408687920337659872702530374113085649), (+1.15224565846869705207088942704106644, +0.411787256370271074454371960787547762E-1), (+1.99866255303335386786204212806735980, +0.465280994608215616465702475471102184), (+1.45221746388984462582617450004190759, +0.348973300803658904656400635491976943), (+1.58614124949859413156115942293251014, +0.356887305486900379493563786691742589), (+1.78112533192833026799551395065040611, +0.382214749281522487698326914504937409), (+1.85546381261029124698945566678419597, +0.215276089519573559369068345509491466), (+1.04442238627848226687787798215122652, +0.209751038969430403280810905432244519), (+1.97023591876478914478462902988544620, +0.574194833094119759451318016695475460), (+1.00697832909355768385947709729418842, +0.738409375891326943205518361229771178), (+1.48245426497734661136583632464814573, +0.539174423928130309822205179423793912), (+1.04705521260069136450027980470388659, +0.954179313477327551717228015368036970), (+1.42783502344953341190750335526919441, +0.564734488162834424860414117631691961), (+1.93179992053855986377902275393749819, +0.394602566434663694085330747282016685), (+1.13510204011021934953367322287386657, +0.542155812666528174978407760179380233), (+1.85851325889416295805290090083196937, +0.354272230719594407437098244465120377), (+1.08993549062058102331132605234616271, +0.736536231878922005797789040334949617), (+1.21456292084379545035264188616242351, +0.613303304648992750095375559173978978), (+1.53580294344367393808605870016659950, +0.324091223685433199110734262813007087), (+1.42556612755607009617617602503284560, +0.426399572321561768592413886211377712), (+1.12415058135429913505517676752992916, +0.866196370668770410759631086296713140), (+1.53158668065018315729280742987507385, +0.291705953383213400498097234329014357), (+1.52613876119125112665820290482052795, +0.162825689197798418935903701707734589), (+1.90638699664089362764070043678632047, +0.512156990008978127943398700725769496), (+1.54666702616269130155418562246314544, +0.445479262638797089009451483869960441E-1), (+1.22495299516308840724711304552843579, +0.455103869283261669944376366488159310), (+1.96769774333544821572948839970513460, +0.699156596000381286403024456963333423), (+1.11585172010249932660060833998650650, +0.375609085194922986013020924769243209), (+1.94035396089080103715160361365179042, +0.821782679646544976998817149015888251), (+1.07188574585256498036358282505980323, +0.850855109012522044686345553356332046), (+1.98353628277526132812293191714550793, +0.909754359563753822234585082033011615), (+1.08356274540627984877429031676897040, +0.487655187258976392751441604073292103), (+1.85997094992351122702386199097457029, +0.795580474412449510803894801594238045), (+1.06682558390082051159699686901592036, +0.615810128133765428231265402492232189), (+1.26063405368259478606282652569735855, +0.228497092901237436492341872357354041), (+1.77210876311410297751873149626680479, +0.293739221117654099324074744319394054E-2), (+1.87751585793703957560706885917296949, +0.157566086420905862699331175490496205), (+1.50166130374044034717246580891684340, +0.832070238226247265884585670921483597), (+1.75652189503652161696716387811140626, +0.287405769203586752065324488123071221), (+1.90415915459446301534494165094263941, +0.161957823373014669883241306883956107), (+1.77230317409585587261645108375445259, +0.701202404275936892180590755571616554), (+1.23053984663345083602159000716493654, +0.480151436422495652354412071886238237), (+1.55511065527124134566124327118229793, +0.193886353500302270700265705457024878), (+1.11407426179083576488297785993136039, +0.311850790161594639345550125391241945E-1), (+1.59578220573247046934479195906557440, +0.923267861022377746236369335268498629), (+1.48445861864463389881599561477902376, +0.162426259364825251327615840550465466), (+1.76400037966573369844124270517669147, +0.741358034899763973996454784922479349)

41

42adat = getFFTI(getFFTF(data))

43adat

44(+1.32494795964994924867676093218767845, +0.839972263011768533227240866792529865), (+1.98637540660073405706215186946251593, +0.613618931481727713823299212099069455), (+1.42073427449419589235834568261924682, +0.408687920337659872702530374113085890), (+1.15224565846869705207088942704106625, +0.411787256370271074454371960787547221E-1), (+1.99866255303335386786204212806735980, +0.465280994608215616465702475471102232), (+1.45221746388984462582617450004190759, +0.348973300803658904656400635491977040), (+1.58614124949859413156115942293251033, +0.356887305486900379493563786691742734), (+1.78112533192833026799551395065040649, +0.382214749281522487698326914504937409), (+1.85546381261029124698945566678419597, +0.215276089519573559369068345509491418), (+1.04442238627848226687787798215122614, +0.209751038969430403280810905432244688), (+1.97023591876478914478462902988544639, +0.574194833094119759451318016695475364), (+1.00697832909355768385947709729418842, +0.738409375891326943205518361229771178), (+1.48245426497734661136583632464814573, +0.539174423928130309822205179423794104), (+1.04705521260069136450027980470388698, +0.954179313477327551717228015368036970), (+1.42783502344953341190750335526919479, +0.564734488162834424860414117631691961), (+1.93179992053855986377902275393749781, +0.394602566434663694085330747282016781), (+1.13510204011021934953367322287386637, +0.542155812666528174978407760179380426), (+1.85851325889416295805290090083196937, +0.354272230719594407437098244465120473), (+1.08993549062058102331132605234616233, +0.736536231878922005797789040334949521), (+1.21456292084379545035264188616242332, +0.613303304648992750095375559173979075), (+1.53580294344367393808605870016659950, +0.324091223685433199110734262813007135), (+1.42556612755607009617617602503284618, +0.426399572321561768592413886211377567), (+1.12415058135429913505517676752992916, +0.866196370668770410759631086296713237), (+1.53158668065018315729280742987507347, +0.291705953383213400498097234329014309), (+1.52613876119125112665820290482052776, +0.162825689197798418935903701707734613), (+1.90638699664089362764070043678632009, +0.512156990008978127943398700725769111), (+1.54666702616269130155418562246314524, +0.445479262638797089009451483869961284E-1), (+1.22495299516308840724711304552843541, +0.455103869283261669944376366488159310), (+1.96769774333544821572948839970513499, +0.699156596000381286403024456963333230), (+1.11585172010249932660060833998650650, +0.375609085194922986013020924769243209), (+1.94035396089080103715160361365179003, +0.821782679646544976998817149015888251), (+1.07188574585256498036358282505980284, +0.850855109012522044686345553356331950), (+1.98353628277526132812293191714550755, +0.909754359563753822234585082033011326), (+1.08356274540627984877429031676897001, +0.487655187258976392751441604073292055), (+1.85997094992351122702386199097457010, +0.795580474412449510803894801594238045), (+1.06682558390082051159699686901592094, +0.615810128133765428231265402492232285), (+1.26063405368259478606282652569735816, +0.228497092901237436492341872357354041), (+1.77210876311410297751873149626680440, +0.293739221117654099324074744319411358E-2), (+1.87751585793703957560706885917296930, +0.157566086420905862699331175490496181), (+1.50166130374044034717246580891684321, +0.832070238226247265884585670921483597), (+1.75652189503652161696716387811140588, +0.287405769203586752065324488123071413), (+1.90415915459446301534494165094263941, +0.161957823373014669883241306883956252), (+1.77230317409585587261645108375445298, +0.701202404275936892180590755571616651), (+1.23053984663345083602159000716493654, +0.480151436422495652354412071886238188), (+1.55511065527124134566124327118229774, +0.193886353500302270700265705457025095), (+1.11407426179083576488297785993136039, +0.311850790161594639345550125391241553E-1), (+1.59578220573247046934479195906557440, +0.923267861022377746236369335268498533), (+1.48445861864463389881599561477902356, +0.162426259364825251327615840550465587), (+1.76400037966573369844124270517669186, +0.741358034899763973996454784922479542)

45reltol = sqrt(epsilon(1._TKC))

46reltol

47+0.138777878078144567552953958511352539E-16

48isClose(data, adat, reltol = reltol)

49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

50call setAsserted(all(isClose(data, adat, reltol = reltol)))

51

52lenData = getUnifRand(5, 100)

53lenData

54+63

55data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

56data

57+1.24204373, +1.11290324, +1.10905766, +1.45285511, +1.45073843, +1.21945632, +1.37217522, +1.86281705, +1.35649014, +1.82104957, +1.86284614, +1.65847790, +1.71367717, +1.19823861, +1.85284030, +1.54223824, +1.95011568, +1.19915950, +1.61458373, +1.35153508, +1.03482175, +1.86003232, +1.01762915, +1.74115682, +1.50326133, +1.95618260, +1.10697198, +1.63241231, +1.83220911, +1.30352199, +1.94043171, +1.99274075, +1.75398648, +1.62375689, +1.14338207, +1.70101273, +1.17219722, +1.34040689, +1.84752822, +1.85397696, +1.33108330, +1.67623591, +1.84349096, +1.11564684, +1.83087873, +1.18448925, +1.90374804, +1.86438012, +1.00433362, +1.79498434, +1.67610669, +1.66603041, +1.23021412, +1.86610675, +1.13669324, +1.64842916, +1.59083545, +1.91805148, +1.63962781, +1.01201665, +1.00307322, +1.42746806, +1.74477410

58

59adat = getFFTI(getFFTF(data))

60adat

61+1.24204385, +1.11290324, +1.10905743, +1.45285499, +1.45073843, +1.21945608, +1.37217522, +1.86281729, +1.35649014, +1.82104933, +1.86284626, +1.65847790, +1.71367741, +1.19823873, +1.85284030, +1.54223835, +1.95011604, +1.19915926, +1.61458361, +1.35153532, +1.03482163, +1.86003268, +1.01762927, +1.74115670, +1.50326145, +1.95618272, +1.10697198, +1.63241208, +1.83220911, +1.30352211, +1.94043207, +1.99274075, +1.75398648, +1.62375700, +1.14338231, +1.70101273, +1.17219710, +1.34040689, +1.84752822, +1.85397720, +1.33108354, +1.67623591, +1.84349108, +1.11564720, +1.83087862, +1.18448925, +1.90374827, +1.86438000, +1.00433385, +1.79498446, +1.67610645, +1.66603065, +1.23021424, +1.86610663, +1.13669312, +1.64842927, +1.59083545, +1.91805172, +1.63962805, +1.01201665, +1.00307333, +1.42746830, +1.74477410

62reltol = sqrt(epsilon(1._TKC))

63reltol

64+0.345266977E-3

65isClose(data, adat, reltol = reltol)

66T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

67call setAsserted(all(isClose(data, adat, reltol = reltol)))

68

69lenData = getUnifRand(5, 100)

70lenData

71+81

72data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

73data

74+1.8571209414155856, +1.6998245738107931, +1.1979813899752068, +1.6723407390444258, +1.3510154591446206, +1.8237661602004049, +1.0815779979007902, +1.7014717222853397, +1.7228138383384308, +1.5756189109763614, +1.2412804509953879, +1.1172069373844156, +1.6275350822492434, +1.9273446308729343, +1.1352923566051047, +1.6307834786728208, +1.6149051453177186, +1.3268000196859322, +1.3104879035853809, +1.6338887822953074, +1.0797852011165019, +1.0559549937034132, +1.6471500760197904, +1.2310217361929912, +1.0183710766023084, +1.0597878355589485, +1.6133127565234320, +1.1315428345491958, +1.2240732195026989, +1.4838174814827303, +1.1794892013936245, +1.3020695942996916, +1.0818658084984045, +1.8349853831221343, +1.3941430465808402, +1.4494618394068954, +1.6650951010681905, +1.9129060574034789, +1.7043532698048163, +1.8185928893817436, +1.2883087756082165, +1.0052493057929917, +1.1320606773332877, +1.7134696965923326, +1.8981024492974172, +1.1717277940096733, +1.5467586276534138, +1.9692254066438157, +1.7777568601994713, +1.3743261846280328, +1.4582284731881814, +1.3235152104761951, +1.2669107997677389, +1.1204814341048106, +1.6880413362415432, +1.2697831217658679, +1.6694361450863979, +1.7228283550537367, +1.2197287995515320, +1.7262441179351498, +1.0490616744243790, +1.6489362908872427, +1.1218210035776932, +1.5886583117015181, +1.9708397106892619, +1.3185831130772279, +1.5660957447461550, +1.3494815702334719, +1.4398453295246230, +1.6942095895661191, +1.2130182740292779, +1.6841086515025891, +1.5411140249418485, +1.3566844189337344, +1.5992863374100037, +1.8015872677150964, +1.8846894130790539, +1.7421205855878270, +1.0498075542697960, +1.7794665098073654, +1.9646445522928859

75

76adat = getFFTI(getFFTF(data))

77adat

78+1.8571209414155856, +1.6998245738107935, +1.1979813899752068, +1.6723407390444260, +1.3510154591446206, +1.8237661602004049, +1.0815779979007907, +1.7014717222853397, +1.7228138383384310, +1.5756189109763614, +1.2412804509953883, +1.1172069373844156, +1.6275350822492434, +1.9273446308729341, +1.1352923566051054, +1.6307834786728208, +1.6149051453177183, +1.3268000196859326, +1.3104879035853811, +1.6338887822953077, +1.0797852011165019, +1.0559549937034134, +1.6471500760197899, +1.2310217361929916, +1.0183710766023091, +1.0597878355589487, +1.6133127565234322, +1.1315428345491958, +1.2240732195026991, +1.4838174814827305, +1.1794892013936247, +1.3020695942996918, +1.0818658084984047, +1.8349853831221343, +1.3941430465808404, +1.4494618394068959, +1.6650951010681903, +1.9129060574034793, +1.7043532698048158, +1.8185928893817433, +1.2883087756082165, +1.0052493057929921, +1.1320606773332882, +1.7134696965923322, +1.8981024492974174, +1.1717277940096735, +1.5467586276534142, +1.9692254066438153, +1.7777568601994715, +1.3743261846280328, +1.4582284731881814, +1.3235152104761956, +1.2669107997677389, +1.1204814341048110, +1.6880413362415430, +1.2697831217658682, +1.6694361450863981, +1.7228283550537369, +1.2197287995515320, +1.7262441179351498, +1.0490616744243797, +1.6489362908872427, +1.1218210035776937, +1.5886583117015181, +1.9708397106892621, +1.3185831130772276, +1.5660957447461550, +1.3494815702334717, +1.4398453295246234, +1.6942095895661189, +1.2130182740292776, +1.6841086515025894, +1.5411140249418487, +1.3566844189337346, +1.5992863374100035, +1.8015872677150966, +1.8846894130790537, +1.7421205855878272, +1.0498075542697964, +1.7794665098073654, +1.9646445522928861

79reltol = sqrt(epsilon(1._TKC))

80reltol

81+0.14901161193847656E-7

82isClose(data, adat, reltol = reltol)

83T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

84call setAsserted(all(isClose(data, adat, reltol = reltol)))

85

86lenData = getUnifRand(5, 100)

87lenData

88+36

89data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

90data

91+1.06548360570305784555067071675451691, +1.70515302166139224318164348424200692, +1.72944847437181373612280151980611038, +1.36465803000420354528920360245233017, +1.17054590786141621675404411042530067, +1.53664511087747752142416452810030467, +1.63625694924223575117516788650921579, +1.13096882197663841748072330666506917, +1.18098330868712785732619871789573686, +1.47160105695724349790268662305294969, +1.57066603232269783865144698546189056, +1.77752029796957552184623109305380069, +1.76312855067933101121767663814684544, +1.21145505104511796239330525035708123, +1.62463458322819319547405198948690145, +1.77921492180335685456010041895506094, +1.45112697626194992959935634428057454, +1.67065967864736701019852203179845062, +1.40953932028805803690229695963775808, +1.78972516511344061553534144087984211, +1.34391042301316211158654828168114423, +1.26219013014985478695934703584595161, +1.71856362471562963955734072884145722, +1.86118056159109140236654720565810033, +1.54330548426121606999198821699153092, +1.28268538830214890641805946271116416, +1.16651564636654022505263628180678921, +1.29194366365310905516443423480184995, +1.69039727732473989884044321272830674, +1.37916562555761282116986700656655749, +1.95404459953831277652980837553568342, +1.46301197465263172308799595376816936, +1.21361057072546215196538490690139818, +1.34968352143149254168328687929247438, +1.44826514938301739130173324111091752, +1.25496372212930855646013776134443153

92

93adat = getFFTI(getFFTF(data))

94adat

95+1.06548360570305784555067071675451729, +1.70515302166139224318164348424200672, +1.72944847437181373612280151980611038, +1.36465803000420354528920360245232998, +1.17054590786141621675404411042530086, +1.53664511087747752142416452810030448, +1.63625694924223575117516788650921579, +1.13096882197663841748072330666506898, +1.18098330868712785732619871789573686, +1.47160105695724349790268662305294950, +1.57066603232269783865144698546189037, +1.77752029796957552184623109305380031, +1.76312855067933101121767663814684563, +1.21145505104511796239330525035708123, +1.62463458322819319547405198948690145, +1.77921492180335685456010041895506075, +1.45112697626194992959935634428057473, +1.67065967864736701019852203179845024, +1.40953932028805803690229695963775827, +1.78972516511344061553534144087984211, +1.34391042301316211158654828168114442, +1.26219013014985478695934703584595142, +1.71856362471562963955734072884145684, +1.86118056159109140236654720565810014, +1.54330548426121606999198821699153111, +1.28268538830214890641805946271116416, +1.16651564636654022505263628180678940, +1.29194366365310905516443423480184976, +1.69039727732473989884044321272830674, +1.37916562555761282116986700656655730, +1.95404459953831277652980837553568342, +1.46301197465263172308799595376816917, +1.21361057072546215196538490690139818, +1.34968352143149254168328687929247400, +1.44826514938301739130173324111091752, +1.25496372212930855646013776134443134

96reltol = sqrt(epsilon(1._TKC))

97reltol

98+0.138777878078144567552953958511352539E-16

99isClose(data, adat, reltol = reltol)

100T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

101call setAsserted(all(isClose(data, adat, reltol = reltol)))

102

103lenData = getUnifRand(5, 100)

104lenData

105+35

106data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

107data

108(+1.08761406, +0.436612964E-1), (+1.96910834, +0.337411523), (+1.31023121, +0.937644064), (+1.44375753, +0.359830856), (+1.96561265, +0.143452823), (+1.79026604, +0.405116379), (+1.90788186, +0.388656735), (+1.59340632, +0.465760529), (+1.48888004, +0.416324496), (+1.15991616, +0.271393776), (+1.91886616, +0.951201499), (+1.81067657, +0.209672034), (+1.77740562, +0.255485594), (+1.49532115, +0.347994506), (+1.65003693, +0.259233713), (+1.70465231, +0.876477957), (+1.21418309, +0.106651843), (+1.48677897, +0.345211864), (+1.04089975, +0.679078460), (+1.82057714, +0.794768870), (+1.12786889, +0.838842154), (+1.05130053, +0.432669878), (+1.10962474, +0.210651755E-1), (+1.66765714, +0.692559481), (+1.58878732, +0.935995579), (+1.60853076, +0.905371189), (+1.21057177, +0.280563533), (+1.71676111, +0.714590073), (+1.55254674, +0.911281705E-1), (+1.12553132, +0.401938260), (+1.17399359, +0.661690891), (+1.03828692, +0.869977176), (+1.37826622, +0.268968523), (+1.89223528, +0.247391582), (+1.80604935, +0.814786315)

109

110adat = getFFTI(getFFTF(data))

111adat

112(+1.08761358, +0.436611995E-1), (+1.96910834, +0.337411463), (+1.31023097, +0.937644005), (+1.44375706, +0.359830797), (+1.96561217, +0.143452734), (+1.79026592, +0.405116260), (+1.90788186, +0.388656765), (+1.59340608, +0.465760469), (+1.48888016, +0.416324556), (+1.15991616, +0.271393776), (+1.91886592, +0.951201618), (+1.81067657, +0.209671929), (+1.77740586, +0.255485475), (+1.49532139, +0.347994566), (+1.65003657, +0.259233654), (+1.70465267, +0.876478136), (+1.21418309, +0.106651686), (+1.48677897, +0.345211744), (+1.04089963, +0.679078281), (+1.82057738, +0.794768870), (+1.12786913, +0.838842332), (+1.05130005, +0.432669729), (+1.10962498, +0.210651942E-1), (+1.66765726, +0.692559421), (+1.58878720, +0.935995579), (+1.60853064, +0.905371249), (+1.21057200, +0.280563563), (+1.71676135, +0.714590192), (+1.55254662, +0.911280885E-1), (+1.12553155, +0.401938260), (+1.17399347, +0.661690950), (+1.03828692, +0.869977117), (+1.37826622, +0.268968403), (+1.89223552, +0.247391507), (+1.80604959, +0.814786315)

113reltol = sqrt(epsilon(1._TKC))

114reltol

115+0.345266977E-3

116isClose(data, adat, reltol = reltol)

117T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

118call setAsserted(all(isClose(data, adat, reltol = reltol)))

119

120lenData = getUnifRand(5, 100)

121lenData

122+96

123data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

124data

125(+1.9151579311400648, +0.27175576464644025), (+1.9175837040177504, +0.35364689234052438), (+1.7155575985779068, +0.58978693829947226), (+1.1643933608286705, +0.41937465056639001), (+1.0678969185306859, +0.91134931400624397), (+1.5978002621962730, +0.14276878328718823E-1), (+1.1250873000520285, +0.15331331220934064), (+1.8118083421483795, +0.69634649347520217), (+1.7337241791196465, +0.45332064383058102), (+1.5258917503524010, +0.83531969276668783), (+1.4872441788903399, +0.15508479786247487), (+1.9726463560923051, +0.48718825587827941), (+1.8409450520147104, +0.11793314968322133), (+1.3973814929970430, +0.35561368848467123), (+1.5843816903010954, +0.29220210027601556E-1), (+1.6102608876288034, +0.39780928455765718), (+1.9598735035176917, +0.78480016495620264), (+1.1131818525690411, +0.99886172061775502), (+1.3308406266194792, +0.23897472205754766), (+1.4688805603142816, +0.99156662644407056), (+1.9819968438825404, +0.80749527244682318), (+1.9131706867854170, +0.57824685896755634), (+1.6190036270253716, +0.88218397136103621), (+1.7814553311232397, +0.30853192564510334), (+1.5823245871559743, +0.99224876683783814), (+1.6285986217181381, +0.44146722341118716E-1), (+1.8327072914133220, +0.22214899599441673E-1), (+1.7129068951438517, +0.49085184610137000E-2), (+1.2413977444456892, +0.57927475988034827), (+1.1392056019610004, +0.46388509497902619), (+1.7229885126810471, +0.69475789694067613), (+1.1201161488351064, +0.40096889971629524E-1), (+1.0861756527117112, +0.83026986494463306), (+1.9641156734062535, +0.62360061028770675E-1), (+1.5038205649804131, +0.10799842004297500), (+1.0681860239777330, +0.68860548623600781), (+1.1832941705465427, +0.48551833823914459), (+1.3039274563620404, +0.80903598827084611), (+1.6695727598376731, +0.81441240806885673), (+1.9782800521209336, +0.23647299111993536), (+1.7359805701319382, +0.25063930358670139), (+1.2081213752281224, +0.44797565997412692), (+1.0928349727966358, +0.21437562722970371), (+1.0809031828543554, +0.20893498444677749), (+1.8119645013252650, +0.87602072557136035), (+1.9148224429556544, +0.10466555023652291), (+1.1210563031400078, +0.16919152154978900), (+1.1999713093270508, +0.84530604287337341), (+1.7831155179470994, +0.53513193266604020), (+1.8788086620612361, +0.76909300247938428), (+1.9295882848702934, +0.12188500199209273), (+1.6566208764332626, +0.75582619162848153), (+1.4426561513186802, +0.68371215891499448), (+1.2506032356523136, +0.54408591519999472), (+1.9385810189142088, +0.47532810429526051), (+1.2086624487081332, +0.90910925615980698), (+1.6075410094847780, +0.51275210371483904), (+1.4384176434058054, +0.89365037217225529), (+1.5251782584223261, +0.98187399631512284), (+1.4093455780811701, +0.11312446482049554), (+1.1905880505176185, +0.91281855000864165E-1), (+1.6906205477530389, +0.46571191313850624), (+1.3429090785891420, +0.19287286884990962), (+1.4154358218303740, +0.53570923607021537E-1), (+1.4757339688729818, +0.72777921490124964), (+1.9810773305411762, +0.93476870386887656), (+1.2246478104037017, +0.45089871176935636), (+1.9802929321061127, +0.48055553730342104), (+1.8107595165595605, +0.46912965074630575), (+1.3935020711200621, +0.24393814176501771E-1), (+1.1036154395482050, +0.39489458197148164), (+1.3473655300628895, +0.44395082469596792), (+1.7463203135507972, +0.49344188601521533), (+1.0426162419845166, +0.14208950666904108), (+1.8788604811138123, +0.80043280403032857), (+1.9809786338026936, +0.73242281108072316), (+1.9196377464380696, +0.87607072411291087), (+1.2342571241341953, +0.16661245227232258), (+1.7082347600430969, +0.49383381022338779), (+1.8097106476374560, +0.86696060373311279), (+1.2661403283171773, +0.83860855187349426), (+1.6945921005570994, +0.14883524678652060), (+1.9133173325950588, +0.92759788106999719), (+1.0143521331995877, +0.18147082249022228), (+1.1753710851110075, +0.28670705746044123), (+1.7732635939133434, +0.70359390173771563), (+1.7911840963689212, +0.80423165093857385), (+1.2561446071919580, +0.22583411522221453), (+1.8046627213481394, +0.61139884734531558), (+1.6148351718035223, +0.79752662731668700), (+1.2346113792755120, +0.58057233728260738), (+1.2317323682548849, +0.58201844102193956), (+1.3448350816968546, +0.86988700832077459), (+1.7895238910805866, +0.52852944461692397), (+1.3867745347933234, +0.84736544337583930), (+1.3947976818163730, +0.99573980316157351)

126

127adat = getFFTI(getFFTF(data))

128adat

129(+1.9151579311400653, +0.27175576464644019), (+1.9175837040177497, +0.35364689234052432), (+1.7155575985779061, +0.58978693829947249), (+1.1643933608286705, +0.41937465056639001), (+1.0678969185306855, +0.91134931400624408), (+1.5978002621962730, +0.14276878328718859E-1), (+1.1250873000520283, +0.15331331220934058), (+1.8118083421483793, +0.69634649347520217), (+1.7337241791196463, +0.45332064383058068), (+1.5258917503524008, +0.83531969276668772), (+1.4872441788903397, +0.15508479786247525), (+1.9726463560923051, +0.48718825587827930), (+1.8409450520147104, +0.11793314968322133), (+1.3973814929970425, +0.35561368848467112), (+1.5843816903010950, +0.29220210027601702E-1), (+1.6102608876288038, +0.39780928455765735), (+1.9598735035176915, +0.78480016495620242), (+1.1131818525690411, +0.99886172061775513), (+1.3308406266194788, +0.23897472205754777), (+1.4688805603142818, +0.99156662644407056), (+1.9819968438825399, +0.80749527244682340), (+1.9131706867854170, +0.57824685896755623), (+1.6190036270253714, +0.88218397136103621), (+1.7814553311232388, +0.30853192564510323), (+1.5823245871559746, +0.99224876683783791), (+1.6285986217181376, +0.44146722341118716E-1), (+1.8327072914133216, +0.22214899599441930E-1), (+1.7129068951438517, +0.49085184610135890E-2), (+1.2413977444456887, +0.57927475988034816), (+1.1392056019609997, +0.46388509497902619), (+1.7229885126810469, +0.69475789694067625), (+1.1201161488351066, +0.40096889971629482E-1), (+1.0861756527117112, +0.83026986494463328), (+1.9641156734062521, +0.62360061028770730E-1), (+1.5038205649804131, +0.10799842004297518), (+1.0681860239777325, +0.68860548623600792), (+1.1832941705465425, +0.48551833823914442), (+1.3039274563620402, +0.80903598827084588), (+1.6695727598376726, +0.81441240806885662), (+1.9782800521209336, +0.23647299111993542), (+1.7359805701319380, +0.25063930358670139), (+1.2081213752281219, +0.44797565997412714), (+1.0928349727966356, +0.21437562722970355), (+1.0809031828543556, +0.20893498444677738), (+1.8119645013252648, +0.87602072557136035), (+1.9148224429556540, +0.10466555023652287), (+1.1210563031400076, +0.16919152154978923), (+1.1999713093270501, +0.84530604287337330), (+1.7831155179470994, +0.53513193266604009), (+1.8788086620612356, +0.76909300247938417), (+1.9295882848702925, +0.12188500199209280), (+1.6566208764332626, +0.75582619162848141), (+1.4426561513186797, +0.68371215891499459), (+1.2506032356523136, +0.54408591519999483), (+1.9385810189142085, +0.47532810429526062), (+1.2086624487081328, +0.90910925615980709), (+1.6075410094847780, +0.51275210371483892), (+1.4384176434058049, +0.89365037217225507), (+1.5251782584223259, +0.98187399631512307), (+1.4093455780811699, +0.11312446482049557), (+1.1905880505176185, +0.91281855000864193E-1), (+1.6906205477530387, +0.46571191313850618), (+1.3429090785891415, +0.19287286884990973), (+1.4154358218303742, +0.53570923607021537E-1), (+1.4757339688729818, +0.72777921490124964), (+1.9810773305411760, +0.93476870386887634), (+1.2246478104037013, +0.45089871176935636), (+1.9802929321061129, +0.48055553730342093), (+1.8107595165595605, +0.46912965074630586), (+1.3935020711200619, +0.24393814176502066E-1), (+1.1036154395482047, +0.39489458197148181), (+1.3473655300628888, +0.44395082469596769), (+1.7463203135507972, +0.49344188601521527), (+1.0426162419845162, +0.14208950666904108), (+1.8788604811138119, +0.80043280403032857), (+1.9809786338026933, +0.73242281108072327), (+1.9196377464380689, +0.87607072411291098), (+1.2342571241341949, +0.16661245227232260), (+1.7082347600430965, +0.49383381022338796), (+1.8097106476374560, +0.86696060373311268), (+1.2661403283171773, +0.83860855187349448), (+1.6945921005570983, +0.14883524678652060), (+1.9133173325950583, +0.92759788106999719), (+1.0143521331995875, +0.18147082249022264), (+1.1753710851110073, +0.28670705746044123), (+1.7732635939133434, +0.70359390173771552), (+1.7911840963689207, +0.80423165093857396), (+1.2561446071919580, +0.22583411522221455), (+1.8046627213481392, +0.61139884734531558), (+1.6148351718035219, +0.79752662731668700), (+1.2346113792755118, +0.58057233728260738), (+1.2317323682548851, +0.58201844102193945), (+1.3448350816968546, +0.86988700832077470), (+1.7895238910805862, +0.52852944461692386), (+1.3867745347933229, +0.84736544337583930), (+1.3947976818163723, +0.99573980316157362)

130reltol = sqrt(epsilon(1._TKC))

131reltol

132+0.14901161193847656E-7

133isClose(data, adat, reltol = reltol)

134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

135call setAsserted(all(isClose(data, adat, reltol = reltol)))

136

137lenData = getUnifRand(5, 100)

138lenData

139+76

140data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

141data

142(+1.20637901040515253155600297411637676, +0.298249140461575437926812989838356001E-1), (+1.52387734350404265836940822140205762, +0.261354774554768054231710630238326724E-1), (+1.57782374347263861683865485558475058, +0.200672387976058522576294999033498292), (+1.77467218480804353684571160732749278, +0.780769535293410378335004300830644873), (+1.30539603840788759867090242675676200, +0.625356296308664130439018998662453186), (+1.11364407641614670682525441609623197, +0.622278514642562510702484180458455425), (+1.05096942740709825507376024069616978, +0.258684756726927155517566058621585488), (+1.45606686733802312761995253237446574, +0.543945699740328573902633977614231631), (+1.38686216490730613668872982212793495, +0.734111134855093268397331293779045538), (+1.52406096596153894120325497158392433, +0.646925209728650731328688300791574829), (+1.30895519947510037387579040549483440, +0.331554957413920141882690589761195863), (+1.13154312919983398357495230687875850, +0.987008732136808287194144787535321612), (+1.90057069797020540876660913813551496, +0.245123652845282182179019786123229905), (+1.20832971489490757670103648710207681, +0.363541756746591202310114305281162960), (+1.32830710952320915697869296603116438, +0.866188535266124936641900615555221797), (+1.89063516229997100780439540290229351, +0.161325108304984914999498152182157333), (+1.01944389872167661262221705527387356, +0.118494278154443131675217808806591543), (+1.70825051105807810869773142213888278, +0.765729745459445718958760941725944713), (+1.12439560173577268551519402657011996, +0.518811142967707978259124747383696246), (+1.01965561774373081160183194608280826, +0.203945349798700615072182693515064689), (+1.76293460991158816809157906931864875, +0.934117225372114137923799303005733768), (+1.34817759314063068903835134540527272, +0.962160834461048983123278416309871269), (+1.30875528625507577479773184383200538, +0.125624099413717746517360299904642943), (+1.24194101750147275728836448599370857, +0.955866381531214036542520047543741454), (+1.86498016856466072090634899038683951, +0.278903140805869798286112669939240674E-1), (+1.69864762990214469468260604826131758, +0.247195529861140773050642169283826591), (+1.15926062740201324768144936021651701, +0.209473738628243066889747402681213915), (+1.07409809141530321137517432566181204, +0.577912502165562898043059248179279830), (+1.15996706353412715861620939620206565, +0.721414720990262248079336498673829397), (+1.72310864094532061453723844744490020, +0.870903189613009116750121466334843444), (+1.28999805219502006742460657195642369, +0.187429280202088184970682070237508320), (+1.09763315570838226364492787527843130, +0.220276098631512912275404363381618403), (+1.40057367025071039280445330190955752, +0.239260082810239776535470060219251643), (+1.92013886874472627495196762926605656, +0.420480480289148637797232302101475555), (+1.67454886437015741826820906368461897, +0.184338740505738341472201770436683261), (+1.33581751624858864347855523801649794, +0.696019330337175114500942394418551998), (+1.51298603954482173754069106091459201, +0.360845804717694883856483966311640526), (+1.67492025155947213032193567807108970, +0.793078818420420525252484904670971387), (+1.78253634182518251389237970164455761, +0.433523859145388208247441309350575760), (+1.52813151344358284929231784831758202, +0.730539583799352216994028906963649990), (+1.37581716976213297248495990724716946, +0.303964474842306632988684310065204679), (+1.65508189864428442787448126416271368, +0.403370055661663038006962955786419350), (+1.68180282453726454303685263459108527, +0.556328684210894963401435126783420880), (+1.87555887451777773173519759748021676, +0.329712572364017750807989280141311948), (+1.62273032767893781763868949871920152, +0.578998537142158065510244705989732328), (+1.84847144238860310814993168847811869, +0.515244483377730772199675762506459839), (+1.59431614049289299515377807507498520, +0.286161792181060859521554702594927293), (+1.67229168955637540834649355535598422, +0.350920983636342873812237201368587869), (+1.13119901237031422554095391161828462, +0.105866752372824726543535635830418903), (+1.10818070402226945034731195003633357, +0.843186537698049238640156825926212723), (+1.01667500186715424816150814930669545, +0.371997879318808927643533043269763427), (+1.27455844702852149926139804438722481, +0.275809718131582225063759081206643493), (+1.20989514444140175519287241643987873, +0.407024772221886742665531238387415968), (+1.55082254005063978082453715105639174, +0.879082586924006106342551490042300511), (+1.58404670761076203919967500294817790, +0.130715825533569751505523094853652897), (+1.05530049989311851748311514391615151, +0.787707302971399238201158575843973453), (+1.74564481642750935032535548001842965, +0.265706268103827626416205638407539576), (+1.42543090457038160381162097403612812, +0.280372238856659874008275217191504574), (+1.14084411164642994580994752647504207, +0.483020048835265568503357557956250693), (+1.30357891235809100811328022049901814, +0.407117313832658435933353200514034367), (+1.47743605204234833816271262138029051, +0.935591103341023032485572458364553918), (+1.24320882576331538172217158979452975, +0.701290543503460498149507383234361528), (+1.72667550861933958837101407371228047, +0.745958762380205876726779644916375365), (+1.39529104922016066149930797038935224, +0.328951451395334982409729394399798812), (+1.80625730678881265833007813091023271, +0.160736790784158956455875522178020455), (+1.06317643443959377884473569717004784, +0.327330033464186673607436335193277080), (+1.25746859682579772643498790521053871, +0.292148007993514211889692195882413658), (+1.89670864562175624293380207228573511, +0.501645546924959037213364058036237397), (+1.29989867967867980756190144400280508, +0.563177268911426104033917951936540161), (+1.84287059040786734262946503069692770, +0.524437868146089912773025923765871618), (+1.46547825778133644670279683417842867, +0.573978393946150743183088730326247429), (+1.40032640358008262260368791163708381, +0.506140887588336847878590845478351400E-1), (+1.31989019840240533338462623438893041, +0.928389658275344823553028758478279661), (+1.57383330729744594255891966148977712, +0.723015649129771088403898915328580483), (+1.86141238196311573616813081980126543, +0.143610325704485925277739412387463442), (+1.98210788116877731778497835939401449, +0.184836552271260576201065985919672737)

143

144adat = getFFTI(getFFTF(data))

145adat

146(+1.20637901040515253155600297411637637, +0.298249140461575437926812989838352811E-1), (+1.52387734350404265836940822140205819, +0.261354774554768054231710630238326874E-1), (+1.57782374347263861683865485558475077, +0.200672387976058522576294999033498485), (+1.77467218480804353684571160732749317, +0.780769535293410378335004300830644969), (+1.30539603840788759867090242675676220, +0.625356296308664130439018998662453282), (+1.11364407641614670682525441609623158, +0.622278514642562510702484180458455232), (+1.05096942740709825507376024069616958, +0.258684756726927155517566058621585584), (+1.45606686733802312761995253237446497, +0.543945699740328573902633977614231631), (+1.38686216490730613668872982212793476, +0.734111134855093268397331293779045442), (+1.52406096596153894120325497158392395, +0.646925209728650731328688300791574540), (+1.30895519947510037387579040549483382, +0.331554957413920141882690589761195574), (+1.13154312919983398357495230687875831, +0.987008732136808287194144787535321709), (+1.90057069797020540876660913813551438, +0.245123652845282182179019786123229857), (+1.20832971489490757670103648710207662, +0.363541756746591202310114305281162767), (+1.32830710952320915697869296603116418, +0.866188535266124936641900615555221797), (+1.89063516229997100780439540290229389, +0.161325108304984914999498152182157381), (+1.01944389872167661262221705527387395, +0.118494278154443131675217808806591315), (+1.70825051105807810869773142213888278, +0.765729745459445718958760941725944713), (+1.12439560173577268551519402657012054, +0.518811142967707978259124747383696342), (+1.01965561774373081160183194608280769, +0.203945349798700615072182693515064545), (+1.76293460991158816809157906931864932, +0.934117225372114137923799303005734153), (+1.34817759314063068903835134540527272, +0.962160834461048983123278416309871172), (+1.30875528625507577479773184383200577, +0.125624099413717746517360299904643159), (+1.24194101750147275728836448599370857, +0.955866381531214036542520047543741261), (+1.86498016856466072090634899038683912, +0.278903140805869798286112669939240884E-1), (+1.69864762990214469468260604826131701, +0.247195529861140773050642169283826567), (+1.15926062740201324768144936021651605, +0.209473738628243066889747402681213915), (+1.07409809141530321137517432566181204, +0.577912502165562898043059248179279830), (+1.15996706353412715861620939620206508, +0.721414720990262248079336498673829204), (+1.72310864094532061453723844744490020, +0.870903189613009116750121466334843444), (+1.28999805219502006742460657195642350, +0.187429280202088184970682070237508440), (+1.09763315570838226364492787527843073, +0.220276098631512912275404363381618259), (+1.40057367025071039280445330190955714, +0.239260082810239776535470060219251763), (+1.92013886874472627495196762926605618, +0.420480480289148637797232302101475555), (+1.67454886437015741826820906368461897, +0.184338740505738341472201770436683189), (+1.33581751624858864347855523801649833, +0.696019330337175114500942394418552094), (+1.51298603954482173754069106091459182, +0.360845804717694883856483966311640767), (+1.67492025155947213032193567807109027, +0.793078818420420525252484904670971579), (+1.78253634182518251389237970164455703, +0.433523859145388208247441309350575471), (+1.52813151344358284929231784831758221, +0.730539583799352216994028906963650279), (+1.37581716976213297248495990724716946, +0.303964474842306632988684310065204728), (+1.65508189864428442787448126416271387, +0.403370055661663038006962955786419639), (+1.68180282453726454303685263459108508, +0.556328684210894963401435126783420880), (+1.87555887451777773173519759748021599, +0.329712572364017750807989280141311900), (+1.62273032767893781763868949871920152, +0.578998537142158065510244705989732328), (+1.84847144238860310814993168847811792, +0.515244483377730772199675762506459742), (+1.59431614049289299515377807507498463, +0.286161792181060859521554702594927293), (+1.67229168955637540834649355535598364, +0.350920983636342873812237201368587820), (+1.13119901237031422554095391161828385, +0.105866752372824726543535635830418807), (+1.10818070402226945034731195003633337, +0.843186537698049238640156825926212627), (+1.01667500186715424816150814930669468, +0.371997879318808927643533043269763379), (+1.27455844702852149926139804438722442, +0.275809718131582225063759081206643397), (+1.20989514444140175519287241643987854, +0.407024772221886742665531238387415920), (+1.55082254005063978082453715105639154, +0.879082586924006106342551490042300414), (+1.58404670761076203919967500294817848, +0.130715825533569751505523094853652993), (+1.05530049989311851748311514391615151, +0.787707302971399238201158575843973838), (+1.74564481642750935032535548001843061, +0.265706268103827626416205638407539913), (+1.42543090457038160381162097403612754, +0.280372238856659874008275217191504285), (+1.14084411164642994580994752647504265, +0.483020048835265568503357557956250934), (+1.30357891235809100811328022049901814, +0.407117313832658435933353200514034511), (+1.47743605204234833816271262138029108, +0.935591103341023032485572458364553821), (+1.24320882576331538172217158979452994, +0.701290543503460498149507383234361432), (+1.72667550861933958837101407371228028, +0.745958762380205876726779644916375172), (+1.39529104922016066149930797038935185, +0.328951451395334982409729394399798764), (+1.80625730678881265833007813091023213, +0.160736790784158956455875522178020214), (+1.06317643443959377884473569717004784, +0.327330033464186673607436335193277032), (+1.25746859682579772643498790521053852, +0.292148007993514211889692195882413850), (+1.89670864562175624293380207228573472, +0.501645546924959037213364058036237300), (+1.29989867967867980756190144400280489, +0.563177268911426104033917951936540064), (+1.84287059040786734262946503069692712, +0.524437868146089912773025923765871522), (+1.46547825778133644670279683417842867, +0.573978393946150743183088730326247526), (+1.40032640358008262260368791163708361, +0.506140887588336847878590845478350858E-1), (+1.31989019840240533338462623438893041, +0.928389658275344823553028758478279469), (+1.57383330729744594255891966148977731, +0.723015649129771088403898915328580386), (+1.86141238196311573616813081980126543, +0.143610325704485925277739412387463611), (+1.98210788116877731778497835939401468, +0.184836552271260576201065985919672689)

147reltol = sqrt(epsilon(1._TKC))

148reltol

149+0.138777878078144567552953958511352539E-16

150isClose(data, adat, reltol = reltol)

151T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

152call setAsserted(all(isClose(data, adat, reltol = reltol)))

153

154lenData = getUnifRand(5, 100)

155lenData

156+89

157data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

158data

159+1.76256180, +1.90204966, +1.20831084, +1.01098394, +1.58192825, +1.88331401, +1.59638405, +1.78370214, +1.04728734, +1.85683715, +1.36902571, +1.62202740, +1.71436954, +1.30229592, +1.82998598, +1.46074796, +1.40124786, +1.73072493, +1.06940877, +1.05201006, +1.65586185, +1.30614924, +1.33922577, +1.40886796, +1.80858600, +1.14139581, +1.46648407, +1.77809715, +1.89758086, +1.22769165, +1.60653770, +1.65922308, +1.97492504, +1.54826057, +1.24301541, +1.22932100, +1.39250827, +1.95174432, +1.71916318, +1.81917548, +1.76895356, +1.00727725, +1.70206714, +1.00710773, +1.80678034, +1.39768410, +1.75343347, +1.57097101, +1.27819908, +1.67804825, +1.92650056, +1.45272636, +1.23370290, +1.74799097, +1.12919283, +1.72821069, +1.12764907, +1.75421393, +1.82395339, +1.15017176, +1.65057147, +1.72743928, +1.97060168, +1.20174754, +1.41491723, +1.25700903, +1.72800708, +1.79670906, +1.00923610, +1.21241021, +1.62117326, +1.73066747, +1.68607950, +1.37142348, +1.76561677, +1.74440861, +1.09120417, +1.82172441, +1.01971161, +1.20256686, +1.80289865, +1.86914062, +1.68100739, +1.02819169, +1.25120270, +1.92067528, +1.33256602, +1.67690110, +1.56473947

160

161adat = getFFTI(getFFTF(data))

162adat

163+1.76256335, +1.90205038, +1.20831275, +1.01098585, +1.58192873, +1.88331282, +1.59638536, +1.78370261, +1.04729116, +1.85683501, +1.36902857, +1.62202644, +1.71436882, +1.30229998, +1.82998264, +1.46074939, +1.40124929, +1.73072112, +1.06941116, +1.05201471, +1.65585518, +1.30615211, +1.33922553, +1.40887022, +1.80857933, +1.14140320, +1.46648490, +1.77809489, +1.89757407, +1.22770131, +1.60653496, +1.65922379, +1.97491574, +1.54826128, +1.24302030, +1.22932494, +1.39251101, +1.95173514, +1.71916378, +1.81917393, +1.76894641, +1.00729454, +1.70205092, +1.00712383, +1.80676591, +1.39769256, +1.75342536, +1.57096732, +1.27820766, +1.67804801, +1.92649221, +1.45272851, +1.23371136, +1.74798083, +1.12920344, +1.72820020, +1.12766111, +1.75420678, +1.82394636, +1.15018177, +1.65056896, +1.72743964, +1.97059262, +1.20175564, +1.41491568, +1.25701499, +1.72800255, +1.79670322, +1.00924301, +1.21241200, +1.62117112, +1.73066580, +1.68607771, +1.37142766, +1.76561451, +1.74440694, +1.09120989, +1.82172048, +1.01971519, +1.20256853, +1.80289853, +1.86914027, +1.68100822, +1.02819383, +1.25120354, +1.92067528, +1.33256733, +1.67690217, +1.56474030

164reltol = sqrt(epsilon(1._TKC))

165reltol

166+0.345266977E-3

167isClose(data, adat, reltol = reltol)

168T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

169call setAsserted(all(isClose(data, adat, reltol = reltol)))

170

171lenData = getUnifRand(5, 100)

172lenData

173+33

174data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

175data

176+1.3566379296301907, +1.2648730278451441, +1.6163654304618040, +1.9298222559051852, +1.5923015033731343, +1.3566971799453218, +1.9490438073411500, +1.4508785979787260, +1.3464211393097429, +1.4664877566275150, +1.4179946715603293, +1.5814705806054095, +1.9680211547928179, +1.0926283204461280, +1.8297287250319032, +1.8537022289395251, +1.0465964553272364, +1.5115501242320128, +1.9649330191405949, +1.6490389280783617, +1.1663376423097138, +1.4172951776954172, +1.3333820830265903, +1.3474001080654028, +1.9329195263147194, +1.2144437377453827, +1.6403831853878450, +1.2910845895802803, +1.9776310402131623, +1.3035264422129762, +1.8083963093428417, +1.1032084682681635, +1.1769033988814050

177

178adat = getFFTI(getFFTF(data))

179adat

180+1.3566379296301914, +1.2648730278451448, +1.6163654304618045, +1.9298222559051850, +1.5923015033731343, +1.3566971799453216, +1.9490438073411502, +1.4508785979787264, +1.3464211393097434, +1.4664877566275145, +1.4179946715603293, +1.5814705806054095, +1.9680211547928181, +1.0926283204461282, +1.8297287250319034, +1.8537022289395240, +1.0465964553272356, +1.5115501242320122, +1.9649330191405940, +1.6490389280783606, +1.1663376423097134, +1.4172951776954175, +1.3333820830265903, +1.3474001080654030, +1.9329195263147188, +1.2144437377453829, +1.6403831853878450, +1.2910845895802807, +1.9776310402131625, +1.3035264422129766, +1.8083963093428417, +1.1032084682681638, +1.1769033988814050

181reltol = sqrt(epsilon(1._TKC))

182reltol

183+0.14901161193847656E-7

184isClose(data, adat, reltol = reltol)

185T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

186call setAsserted(all(isClose(data, adat, reltol = reltol)))

187

188lenData = getUnifRand(5, 100)

189lenData

190+63

191data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

192data

193+1.50866729025937431218611438958473853, +1.51398261144309392080831483642816651, +1.54679796786807411788665530545003528, +1.75386026446198109308761633885788261, +1.30957310156402433867971124048804424, +1.29166705589551148239175513444433851, +1.97944197095323828970803556183482388, +1.23646224425972028382270768469418398, +1.28836138734855683518334062220505620, +1.66804290833979053231110520319679848, +1.90034441581324000008177728084120738, +1.09145613063558945666457631934436058, +1.14606049151618361889192173720463984, +1.53189809834963181796297501766989051, +1.94540882484433223902947739995615725, +1.25438818438680074842478615070428205, +1.25864048034113634765015688093351537, +1.14786517607381696533931408285672663, +1.54232170728109192579725565341021476, +1.53503896673067458474210897555958518, +1.08785847817063392254348935196310546, +1.52651275930952613454050104862661252, +1.19412086188872347958357180013985572, +1.99580008807593608444725681644297649, +1.09743574248538988615886591727890606, +1.79002238484608705019068637361535215, +1.73412165822116655651858554201461379, +1.95416056202131174566168090570162991, +1.92260401372805708164356910524057179, +1.45343672283192142809990973578532580, +1.66291135437055269435912954280843919, +1.35656836441365442931092679607830719, +1.09350505332592040201060090930194053, +1.90030106243180139924616763739916815, +1.05098970024055301836914102299060141, +1.86816956638451973470629865432348607, +1.70356999876694030687899058603304073, +1.37836637559864597767911771276589801, +1.30640565257684550561007338774929251, +1.24725551727790190690792018742107970, +1.05170500728300619979200682260469742, +1.81380367220415866538155672608787228, +1.31583545022669643223618694316946807, +1.25477417922622321591330272942234502, +1.06105326744581788201201218673949757, +1.23978892703499663900987694182532737, +1.77136587809819279137792365315529306, +1.89715262510379290828243806063745845, +1.36716716042838056379038322467480165, +1.59856723108869476638110665515288515, +1.09849237522720171297366183306662506, +1.85840836069836989310581099740705276, +1.43250735197598427262270017092487131, +1.18003058648149562994136168432213170, +1.04973019351400319277391341702694716, +1.55564802983940634287458110017851634, +1.66833067300767825742247128103837542, +1.28410767635631670747898803160413790, +1.74463690903171536600917209644456929, +1.17511295273504787390283704007378280, +1.29887298575231475932803863722758919, +1.41060308130702504791337971156888607, +1.10081109892061690506218411782088320

194

195adat = getFFTI(getFFTF(data))

196adat

197+1.50866729025937431218611438958473872, +1.51398261144309392080831483642816631, +1.54679796786807411788665530545003528, +1.75386026446198109308761633885788261, +1.30957310156402433867971124048804424, +1.29166705589551148239175513444433813, +1.97944197095323828970803556183482407, +1.23646224425972028382270768469418359, +1.28836138734855683518334062220505601, +1.66804290833979053231110520319679867, +1.90034441581324000008177728084120757, +1.09145613063558945666457631934436058, +1.14606049151618361889192173720463984, +1.53189809834963181796297501766989032, +1.94540882484433223902947739995615687, +1.25438818438680074842478615070428243, +1.25864048034113634765015688093351537, +1.14786517607381696533931408285672625, +1.54232170728109192579725565341021437, +1.53503896673067458474210897555958537, +1.08785847817063392254348935196310546, +1.52651275930952613454050104862661271, +1.19412086188872347958357180013985572, +1.99580008807593608444725681644297630, +1.09743574248538988615886591727890606, +1.79002238484608705019068637361535196, +1.73412165822116655651858554201461360, +1.95416056202131174566168090570162991, +1.92260401372805708164356910524057199, +1.45343672283192142809990973578532580, +1.66291135437055269435912954280843958, +1.35656836441365442931092679607830739, +1.09350505332592040201060090930193976, +1.90030106243180139924616763739916892, +1.05098970024055301836914102299060122, +1.86816956638451973470629865432348626, +1.70356999876694030687899058603304035, +1.37836637559864597767911771276589801, +1.30640565257684550561007338774929231, +1.24725551727790190690792018742107989, +1.05170500728300619979200682260469723, +1.81380367220415866538155672608787228, +1.31583545022669643223618694316946845, +1.25477417922622321591330272942234483, +1.06105326744581788201201218673949757, +1.23978892703499663900987694182532737, +1.77136587809819279137792365315529344, +1.89715262510379290828243806063745845, +1.36716716042838056379038322467480165, +1.59856723108869476638110665515288534, +1.09849237522720171297366183306662486, +1.85840836069836989310581099740705315, +1.43250735197598427262270017092487092, +1.18003058648149562994136168432213170, +1.04973019351400319277391341702694716, +1.55564802983940634287458110017851634, +1.66833067300767825742247128103837542, +1.28410767635631670747898803160413790, +1.74463690903171536600917209644456910, +1.17511295273504787390283704007378260, +1.29887298575231475932803863722758938, +1.41060308130702504791337971156888587, +1.10081109892061690506218411782088300

198reltol = sqrt(epsilon(1._TKC))

199reltol

200+0.138777878078144567552953958511352539E-16

201isClose(data, adat, reltol = reltol)

202T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

203call setAsserted(all(isClose(data, adat, reltol = reltol)))

204

205lenData = getUnifRand(5, 100)

206lenData

207+26

208data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

209data

210(+1.61805010, +0.115659535), (+1.58328187, +0.693740666), (+1.30276537, +0.268855512), (+1.45792532, +0.430082560), (+1.84173441, +0.212970138), (+1.48548436, +0.459438324), (+1.31900418, +0.214675069), (+1.87407184, +0.597121954), (+1.80772138, +0.388515770), (+1.55356145, +0.432303786), (+1.95179045, +0.359623551), (+1.53954124, +0.518603444), (+1.16518855, +0.430085897), (+1.00599575, +0.266253769), (+1.78056121, +0.838133872), (+1.35050964, +0.714254439), (+1.46313632, +0.851344645), (+1.02657592, +0.298127115), (+1.90130949, +0.499159634), (+1.14305902, +0.906057954), (+1.33397746, +0.145823956E-1), (+1.08677077, +0.951326609), (+1.31211734, +0.769110858), (+1.04965806, +0.170444250E-1), (+1.98292828, +0.253806472), (+1.48038220, +0.500786901)

211

212adat = getFFTI(getFFTF(data))

213adat

214(+1.61805058, +0.115659580), (+1.58328140, +0.693740726), (+1.30276525, +0.268855482), (+1.45792532, +0.430082530), (+1.84173477, +0.212970302), (+1.48548484, +0.459438354), (+1.31900454, +0.214675143), (+1.87407231, +0.597122133), (+1.80772173, +0.388515592), (+1.55356181, +0.432303816), (+1.95179057, +0.359623581), (+1.53954101, +0.518603325), (+1.16518819, +0.430086017), (+1.00599611, +0.266253918), (+1.78056073, +0.838133752), (+1.35050952, +0.714254320), (+1.46313655, +0.851344645), (+1.02657628, +0.298127174), (+1.90130973, +0.499159634), (+1.14305961, +0.906057835), (+1.33397758, +0.145824971E-1), (+1.08677101, +0.951326907), (+1.31211746, +0.769110858), (+1.04965806, +0.170444157E-1), (+1.98292816, +0.253806472), (+1.48038185, +0.500786781)

215reltol = sqrt(epsilon(1._TKC))

216reltol

217+0.345266977E-3

218isClose(data, adat, reltol = reltol)

219T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

220call setAsserted(all(isClose(data, adat, reltol = reltol)))

221

222lenData = getUnifRand(5, 100)

223lenData

224+16

225data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

226data

227(+1.4898335560651190, +0.17001841197114098), (+1.0563955935343916, +0.12388759245070990), (+1.8229001395172943, +0.56678235596490167), (+1.9174955881574149, +0.19924935591632675), (+1.2232900493136813, +0.16871235450184707), (+1.2610844938749124, +0.72844440814523770), (+1.0215863513066972, +0.72142574133793991), (+1.8112693875632049, +0.75612989499948824), (+1.3004294528585603, +0.11012489603721065), (+1.7662518358986321, +0.16986051643841837), (+1.1375499082324143, +0.69478196241189494), (+1.3315370946072083, +0.66587039033107054), (+1.3125212399524842, +0.74558962711512411), (+1.5696884452514328, +0.77305579351635523), (+1.3717196310658593, +0.52718280217500968), (+1.3064527058436823, +0.91878197504165471)

228

229adat = getFFTI(getFFTF(data))

230adat

231(+1.4898335560651190, +0.17001841197114098), (+1.0563955935343914, +0.12388759245070989), (+1.8229001395172948, +0.56678235596490156), (+1.9174955881574149, +0.19924935591632670), (+1.2232900493136813, +0.16871235450184702), (+1.2610844938749124, +0.72844440814523759), (+1.0215863513066974, +0.72142574133793991), (+1.8112693875632047, +0.75612989499948813), (+1.3004294528585600, +0.11012489603721065), (+1.7662518358986319, +0.16986051643841837), (+1.1375499082324145, +0.69478196241189483), (+1.3315370946072078, +0.66587039033107054), (+1.3125212399524842, +0.74558962711512411), (+1.5696884452514328, +0.77305579351635523), (+1.3717196310658595, +0.52718280217500979), (+1.3064527058436821, +0.91878197504165482)

232reltol = sqrt(epsilon(1._TKC))

233reltol

234+0.14901161193847656E-7

235isClose(data, adat, reltol = reltol)

236T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

237call setAsserted(all(isClose(data, adat, reltol = reltol)))

238

239lenData = getUnifRand(5, 100)

240lenData

241+32

242data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

243data

244(+1.45054852356468380261573713654991920, +0.225355617877842809453601279615246856), (+1.73846869495378186591166381163739342, +0.153269078604298345144517120958311637), (+1.36893181785959619589746521653830227, +0.421458069204359740705708734833734486), (+1.71495187234304978483353619837207580, +0.430497997246602675143268755220132253), (+1.10440283517925681321424126278241117, +0.508298762090937266868931512725252248), (+1.60767270162416635507724278766279210, +0.156154204187266518258132588131793123), (+1.12718329936555865449685605414397697, +0.406855757989744466529549401059032538E-1), (+1.84943467525285589026933012838331778, +0.454397233850696829161763550181951780), (+1.55251419167038602767900724355142213, +0.621764089932909613932487098217881204), (+1.22392583510584267833190830797090616, +0.907543142855602361337872084462813224E-1), (+1.98195983173160919476344062748116341, +0.700737041807557681531452436272361547), (+1.45425643675149307365098039909580899, +0.996446858235890884936938507533967398), (+1.25313544356012281270647641020023301, +0.219867369334937548136314549164587769), (+1.57192514193109984848921138160223366, +0.201698775840921537710967591822711862), (+1.73503940158199476857585857017478071, +0.280985485044999771294462894788160408), (+1.77775152893517436008920000360244041, +0.408463230222390778440850183712030217), (+1.64560009606440281722589564145297866, +0.233547874953731518207728641875459119), (+1.76163044332893389817769866480218380, +0.416489709488919567213932657689052977), (+1.50945479065233160277737105524513330, +0.683569984510934208708053493922971561), (+1.51712297574981489297236251993669195, +0.145258018711543968620239679218758795), (+1.89103427564313442681970246937440666, +0.260799599295699413889329882438828090), (+1.76654976560962685065498271758040906, +0.206720620187206835372426556434170603), (+1.20258112169869870906688115376608859, +0.651158155193534137103497467196490407), (+1.54068645111033734376350574964187704, +0.575533668146523360077996316137162934), (+1.32700369017524527575073599489134809, +0.561296655816518606717460498700330371), (+1.53450369955256528384349865220236661, +0.128048965209042786271281225934877146), (+1.30952393990513931469466544526413084, +0.824400437523448529920977580515551197), (+1.63675346764172544964803128717886520, +0.159651601944679630343044343032222925), (+1.38068851914737310955384269503660291, +0.874449514938953449826549196486822745), (+1.12920800741880886950208650469244078, +0.542973327295933678388441744797204499), (+1.33442471212783558153766445946870691, +0.524395517723829611236465724506444040), (+1.51578289646872018978083249134973181, +0.952085323587779896064982152924402198)

245

246adat = getFFTI(getFFTF(data))

247adat

248(+1.45054852356468380261573713654991901, +0.225355617877842809453601279615246808), (+1.73846869495378186591166381163739342, +0.153269078604298345144517120958311662), (+1.36893181785959619589746521653830227, +0.421458069204359740705708734833734486), (+1.71495187234304978483353619837207599, +0.430497997246602675143268755220132253), (+1.10440283517925681321424126278241136, +0.508298762090937266868931512725252248), (+1.60767270162416635507724278766279210, +0.156154204187266518258132588131793003), (+1.12718329936555865449685605414397716, +0.406855757989744466529549401059032538E-1), (+1.84943467525285589026933012838331778, +0.454397233850696829161763550181951636), (+1.55251419167038602767900724355142213, +0.621764089932909613932487098217881204), (+1.22392583510584267833190830797090597, +0.907543142855602361337872084462813465E-1), (+1.98195983173160919476344062748116360, +0.700737041807557681531452436272361643), (+1.45425643675149307365098039909580918, +0.996446858235890884936938507533967302), (+1.25313544356012281270647641020023320, +0.219867369334937548136314549164587721), (+1.57192514193109984848921138160223346, +0.201698775840921537710967591822711838), (+1.73503940158199476857585857017478109, +0.280985485044999771294462894788160311), (+1.77775152893517436008920000360244060, +0.408463230222390778440850183712030217), (+1.64560009606440281722589564145297847, +0.233547874953731518207728641875459071), (+1.76163044332893389817769866480218399, +0.416489709488919567213932657689052977), (+1.50945479065233160277737105524513330, +0.683569984510934208708053493922971561), (+1.51712297574981489297236251993669233, +0.145258018711543968620239679218758699), (+1.89103427564313442681970246937440685, +0.260799599295699413889329882438828042), (+1.76654976560962685065498271758040887, +0.206720620187206835372426556434170531), (+1.20258112169869870906688115376608878, +0.651158155193534137103497467196490407), (+1.54068645111033734376350574964187704, +0.575533668146523360077996316137162934), (+1.32700369017524527575073599489134809, +0.561296655816518606717460498700330467), (+1.53450369955256528384349865220236661, +0.128048965209042786271281225934877170), (+1.30952393990513931469466544526413084, +0.824400437523448529920977580515551100), (+1.63675346764172544964803128717886539, +0.159651601944679630343044343032222876), (+1.38068851914737310955384269503660330, +0.874449514938953449826549196486822745), (+1.12920800741880886950208650469244058, +0.542973327295933678388441744797204596), (+1.33442471212783558153766445946870710, +0.524395517723829611236465724506443944), (+1.51578289646872018978083249134973200, +0.952085323587779896064982152924402102)

249reltol = sqrt(epsilon(1._TKC))

250reltol

251+0.138777878078144567552953958511352539E-16

252isClose(data, adat, reltol = reltol)

253T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

254call setAsserted(all(isClose(data, adat, reltol = reltol)))

255

256lenData = getUnifRand(5, 100)

257lenData

258+11

259data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

260data

261+1.60874951, +1.48012829, +1.27977276, +1.27965224, +1.86696506, +1.19281828, +1.88707709, +1.02412987, +1.26797366, +1.10609913, +1.60356247

262

263adat = getFFTI(getFFTF(data))

264adat

265+1.60874927, +1.48012865, +1.27977264, +1.27965260, +1.86696470, +1.19281888, +1.88707757, +1.02412951, +1.26797390, +1.10609913, +1.60356283

266reltol = sqrt(epsilon(1._TKC))

267reltol

268+0.345266977E-3

269isClose(data, adat, reltol = reltol)

270T, T, T, T, T, T, T, T, T, T, T

271call setAsserted(all(isClose(data, adat, reltol = reltol)))

272

273lenData = getUnifRand(5, 100)

274lenData

275+17

276data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

277data

278+1.3687078180664751, +1.7878858073767729, +1.9073158844292735, +1.8897418572666282, +1.5857806083514778, +1.7866782802055268, +1.0462366442695168, +1.3952171560322384, +1.4107212512741829, +1.0886896798211749, +1.4964334190594539, +1.2301522519605634, +1.8167724966563057, +1.4270147404888416, +1.5614350488183415, +1.7365297356404716, +1.0480199056029642

279

280adat = getFFTI(getFFTF(data))

281adat

282+1.3687078180664751, +1.7878858073767732, +1.9073158844292744, +1.8897418572666282, +1.5857806083514778, +1.7866782802055263, +1.0462366442695161, +1.3952171560322384, +1.4107212512741829, +1.0886896798211747, +1.4964334190594542, +1.2301522519605628, +1.8167724966563055, +1.4270147404888411, +1.5614350488183415, +1.7365297356404723, +1.0480199056029647

283reltol = sqrt(epsilon(1._TKC))

284reltol

285+0.14901161193847656E-7

286isClose(data, adat, reltol = reltol)

287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

288call setAsserted(all(isClose(data, adat, reltol = reltol)))

289

290lenData = getUnifRand(5, 100)

291lenData

292+42

293data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

294data

295+1.77386781635048575942188192806506946, +1.00084335880936203521942619788214617, +1.01232734628436051590143221306683029, +1.51582486234273761386464273722151030, +1.20136794081480342597654653874338193, +1.16293818265555280384972729799476130, +1.97474849587226873129010435162242637, +1.57585691992121881989321479927841529, +1.59723174157450439836616078170061181, +1.24108680976052924937920776087301121, +1.21829567266624886323742715893934849, +1.26673760603712632431832413617778927, +1.43558949419697526529422377362605774, +1.02208559136896705727430134723993379, +1.61096436688346299156086861974939695, +1.95557868615701266144685521810100789, +1.40045078600102245629930379022049245, +1.60191528165241675041837110446895625, +1.59364026596495160419094725106793952, +1.88623375933409130254403261163375633, +1.15355277620115188402556411431695504, +1.95172651425263334732629403606368256, +1.74094060260324188441305508342515571, +1.33232539942601836459423823403578930, +1.41470254676748106344791730109938217, +1.56800885883422282723963577622607203, +1.39743645183844086966415972601210043, +1.53624226102088340044621145584774024, +1.64601608692170476550430499278120617, +1.32117073756766031707768060258147313, +1.03708825737023914523052187713324815, +1.73353050199375548559060510064124976, +1.27381593517942763094994292798962315, +1.33484676243449635154966535952159411, +1.95575177373860629898216534247175382, +1.33409977735374412810759886220461322, +1.44742158926684136783589045293160401, +1.67690035005450514093920164291115828, +1.82492031079060062178042444482191624, +1.46771934325744884749225753698889176, +1.71508921987523685563433447495243370, +1.52426538902956994988276581163997077

296

297adat = getFFTI(getFFTF(data))

298adat

299+1.77386781635048575942188192806506888, +1.00084335880936203521942619788214617, +1.01232734628436051590143221306682991, +1.51582486234273761386464273722150991, +1.20136794081480342597654653874338155, +1.16293818265555280384972729799476149, +1.97474849587226873129010435162242599, +1.57585691992121881989321479927841529, +1.59723174157450439836616078170061142, +1.24108680976052924937920776087301102, +1.21829567266624886323742715893934810, +1.26673760603712632431832413617778927, +1.43558949419697526529422377362605736, +1.02208559136896705727430134723993399, +1.61096436688346299156086861974939695, +1.95557868615701266144685521810100750, +1.40045078600102245629930379022049226, +1.60191528165241675041837110446895644, +1.59364026596495160419094725106793952, +1.88623375933409130254403261163375652, +1.15355277620115188402556411431695485, +1.95172651425263334732629403606368237, +1.74094060260324188441305508342515532, +1.33232539942601836459423823403578930, +1.41470254676748106344791730109938217, +1.56800885883422282723963577622607203, +1.39743645183844086966415972601210043, +1.53624226102088340044621145584773966, +1.64601608692170476550430499278120559, +1.32117073756766031707768060258147332, +1.03708825737023914523052187713324777, +1.73353050199375548559060510064125014, +1.27381593517942763094994292798962296, +1.33484676243449635154966535952159392, +1.95575177373860629898216534247175382, +1.33409977735374412810759886220461322, +1.44742158926684136783589045293160343, +1.67690035005450514093920164291115789, +1.82492031079060062178042444482191586, +1.46771934325744884749225753698889138, +1.71508921987523685563433447495243312, +1.52426538902956994988276581163997077

300reltol = sqrt(epsilon(1._TKC))

301reltol

302+0.138777878078144567552953958511352539E-16

303isClose(data, adat, reltol = reltol)

304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

305call setAsserted(all(isClose(data, adat, reltol = reltol)))

306

307lenData = getUnifRand(5, 100)

308lenData

309+26

310data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

311data

312(+1.23198545, +0.804625630), (+1.13859665, +0.412017107E-1), (+1.31248569, +0.545503616), (+1.97975278, +0.996818066), (+1.28026867, +0.704797387), (+1.45868397, +0.196479797), (+1.64316344, +0.950882435E-1), (+1.37957311, +0.973721743), (+1.94303572, +0.866353333), (+1.06023252, +0.667871475), (+1.27116156, +0.604386330E-1), (+1.87943125, +0.885877550), (+1.28666437, +0.990884483), (+1.53579307, +0.716255486), (+1.50774693, +0.573537946E-1), (+1.52901173, +0.596348643), (+1.33795118, +0.743474364E-1), (+1.56498647, +0.200803518), (+1.70551610, +0.543801427), (+1.09452915, +0.800222218), (+1.38095570, +0.331777930E-1), (+1.40886211, +0.959214926), (+1.27741373, +0.999311805E-1), (+1.54340792, +0.599637270), (+1.89923143, +0.171719909), (+1.92346847, +0.612040102)

313

314adat = getFFTI(getFFTF(data))

315adat

316(+1.23198605, +0.804625750), (+1.13859653, +0.412016101E-1), (+1.31248534, +0.545503438), (+1.97975314, +0.996818066), (+1.28026903, +0.704797626), (+1.45868421, +0.196479917), (+1.64316392, +0.950882807E-1), (+1.37957358, +0.973721921), (+1.94303584, +0.866353273), (+1.06023288, +0.667871356), (+1.27116168, +0.604387559E-1), (+1.87943149, +0.885877490), (+1.28666401, +0.990884542), (+1.53579366, +0.716255605), (+1.50774682, +0.573538281E-1), (+1.52901173, +0.596348763), (+1.33795106, +0.743473619E-1), (+1.56498706, +0.200803354), (+1.70551634, +0.543801486), (+1.09452963, +0.800222158), (+1.38095593, +0.331780910E-1), (+1.40886223, +0.959214747), (+1.27741396, +0.999314636E-1), (+1.54340804, +0.599637210), (+1.89923131, +0.171719685), (+1.92346847, +0.612039983)

317reltol = sqrt(epsilon(1._TKC))

318reltol

319+0.345266977E-3

320isClose(data, adat, reltol = reltol)

321T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

322call setAsserted(all(isClose(data, adat, reltol = reltol)))

323

324lenData = getUnifRand(5, 100)

325lenData

326+34

327data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

328data

329(+1.1289739982281155, +0.78263215951311582E-1), (+1.5179912334460797, +0.72707113645778898), (+1.0416764451722544, +0.48773871462609275), (+1.1530512517595661, +0.19779232317789885E-1), (+1.9153494478937443, +0.59776149691585911), (+1.7321477353078238, +0.88361253472880097), (+1.9228017961623667, +0.55485081768266875), (+1.2387277775296279, +0.39046724662195187), (+1.0173204405497409, +0.96316154774059870), (+1.7310720873957992, +0.45632708084623808), (+1.2936422946733885, +0.21416136676556530), (+1.8780361635016043, +0.26802727612567967E-1), (+1.5168695102878960, +0.21611993337094038), (+1.7684877759582789, +0.58276155163443377), (+1.2425053055085975, +0.86581648614830109), (+1.7995761538150348, +0.43785219985696688), (+1.8265240001353884, +0.27601600067350918), (+1.1919946246976658, +0.75179192643296333), (+1.6722265810796393, +0.85353926779883826), (+1.4814512125966661, +0.91833381344491016), (+1.8137705172479661, +0.28144382050556849), (+1.9684350087154725, +0.95201654497966248E-1), (+1.7136224233543209, +0.77083719994370792), (+1.7427348718197240, +0.48334384245950190), (+1.1544723257373057, +0.19319509019613590), (+1.0674605508004378, +0.62710459668086238), (+1.0335328542804501, +0.97354400560236976), (+1.5988163444159689, +0.48691250191549240), (+1.6645093633733825, +0.32792034934506153), (+1.3527648624204480, +0.46964353488946120E-1), (+1.7117070482036485, +0.72603344217577981), (+1.2001206332897645, +0.62756717769610104), (+1.1917155855677661, +0.62619886912317346E-2), (+1.0061786316352086, +0.59709772944035955)

330

331adat = getFFTI(getFFTF(data))

332adat

333(+1.1289739982281157, +0.78263215951311485E-1), (+1.5179912334460797, +0.72707113645778920), (+1.0416764451722549, +0.48773871462609281), (+1.1530512517595659, +0.19779232317790028E-1), (+1.9153494478937443, +0.59776149691585900), (+1.7321477353078241, +0.88361253472880130), (+1.9228017961623660, +0.55485081768266864), (+1.2387277775296277, +0.39046724662195176), (+1.0173204405497405, +0.96316154774059870), (+1.7310720873957988, +0.45632708084623830), (+1.2936422946733883, +0.21416136676556544), (+1.8780361635016041, +0.26802727612567939E-1), (+1.5168695102878957, +0.21611993337094043), (+1.7684877759582789, +0.58276155163443377), (+1.2425053055085975, +0.86581648614830098), (+1.7995761538150346, +0.43785219985696699), (+1.8265240001353888, +0.27601600067350918), (+1.1919946246976654, +0.75179192643296333), (+1.6722265810796397, +0.85353926779883815), (+1.4814512125966666, +0.91833381344491027), (+1.8137705172479659, +0.28144382050556838), (+1.9684350087154718, +0.95201654497966207E-1), (+1.7136224233543207, +0.77083719994370792), (+1.7427348718197233, +0.48334384245950196), (+1.1544723257373057, +0.19319509019613593), (+1.0674605508004371, +0.62710459668086249), (+1.0335328542804496, +0.97354400560236942), (+1.5988163444159689, +0.48691250191549251), (+1.6645093633733823, +0.32792034934506142), (+1.3527648624204476, +0.46964353488946065E-1), (+1.7117070482036485, +0.72603344217577970), (+1.2001206332897647, +0.62756717769610126), (+1.1917155855677661, +0.62619886912317676E-2), (+1.0061786316352093, +0.59709772944035988)

334reltol = sqrt(epsilon(1._TKC))

335reltol

336+0.14901161193847656E-7

337isClose(data, adat, reltol = reltol)

338T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

339call setAsserted(all(isClose(data, adat, reltol = reltol)))

340

341lenData = getUnifRand(5, 100)

342lenData

343+73

344data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

345data

346(+1.73825256256820909807096675598608104, +0.619928008049127713809711547078230393), (+1.10517611303202733184104277317552667, +0.723299127939174294440937636342091478), (+1.98975433424789812204364163724746605, +0.528401395618786617507070625389511219), (+1.58729766974220589533629612949696221, +0.527693942900822265476508976861611244), (+1.89558781671403157333484178387421635, +0.531506562666345474561189649280321908), (+1.77143743910481246037821927716388527, +0.481103914873970350230144731619448197), (+1.50183964683003303453086135074996928, +0.890722663818297269782542848780409564), (+1.35702459725620884521419677209403770, +0.672805988000092753374689830533566245), (+1.92624247039080736283771495354318045, +0.997034823867568664424126736878881892E-1), (+1.91790415921351150079311789550301444, +0.374701016656591449384721468257258019), (+1.69588489908203212777362092305707464, +0.635490975512030455712406035004005400), (+1.22759578691385612056438396874822419, +0.865662908270248995302643649484016016), (+1.56369160137099563868081804642903667, +0.624402493939436944134937107571588222), (+1.82972893988170543190724993271073997, +0.418709138666943875149125574136673358), (+1.02771150690342249557333574938644126, +0.595745755468482086165846179702591591), (+1.89139142572398907539213679297727034, +0.172882209866470589594779768874689511E-1), (+1.56445698966791630858593038374815675, +0.998687994836912765439954222554624302), (+1.91444910692117099376208674140410946, +0.334787473128745008146578956358224895), (+1.48374941812868571298650509016138568, +0.993427907081478973451736969139124255), (+1.36807700726837338322990296237229766, +0.953447094416518413816447570504299373), (+1.18697539948100224675723941011704000, +0.602146493737326396277594328840698291), (+1.53636228812884695007667569054057085, +0.407508053386138804475382511766162839), (+1.20811928424933197078783454747471621, +0.749585330056953498210164619602286901), (+1.35192971536298446341635939420865914, +0.353951969549431304597735049900767897), (+1.55853994114193482112535952431247004, +0.457720756041648244961995350364760212), (+1.69250860562277816202775976893348701, +0.579797973021616589920025030103641168), (+1.35689084377377672626288174895716822, +0.914478677870819368502691457205793549), (+1.83433169875744377020308998684877725, +0.574679817672691344961531843315670235), (+1.94059261251533558991640189676487145, +0.439343158104268034111245467866287786), (+1.35098401082753558600578442775209700, +0.329448823777966033871477712573903870), (+1.69208287049755160034736503369414642, +0.405157395605351992449433511117972095), (+1.91912655594396823060402304863792805, +0.584726210728555734657129205470605059), (+1.96704143807824290699775055941327919, +0.942003126274359604877086221195036959E-1), (+1.95817671684563293283183012744786199, +0.921731572387941368413148929713008879), (+1.54577740648667787687109475015420459, +0.472155574867187197910244012454779817), (+1.12707758540293906959545409379292850, +0.159727386477043960410992124029892621), (+1.50637823723719592815240998081881989, +0.237160428463408713380797054042344001), (+1.14105766030706434611949717358037880, +0.263649212889336480669827118070938672), (+1.67861593431211725465347505737892943, +0.718877500290843638012297242632642131E-1), (+1.22596564794709312824431187874796496, +0.955455507953275807706135116537264457), (+1.29143131043859510261450197347467346, +0.188922064642566456518962857798101991), (+1.38457457791450253575704286989708480, +0.328481006547519184097432107850414977), (+1.04600080834327337628589902751300540, +0.528761119196547517016780560101866680), (+1.19333495550461598876339988208363467, +0.527670487424708222016552562885189196), (+1.44305964943050756780084543458781066, +0.481222729621191125612180300555510517), (+1.97424556022349491837777716687520177, +0.854257466699671841725179666230841962), (+1.36234470880914593589432351518831349, +0.162103878576270744957836910135731175E-1), (+1.16777335651954465693388346191466783, +0.697036472506376846422392997277924220), (+1.26180829991783086401994779779540824, +0.122984847335707616234051006349401588), (+1.80691301941012807250982802975137976, +0.360408154424430581765904597695789675), (+1.89517943121446406036740575831351955, +0.590664471947259303554950861242237016E-1), (+1.64006386004672267698094782153542632, +0.395290227829567493180464895089507668), (+1.16385321943628252808669124878824306, +0.894544794439918592116308475396363900), (+1.52940971555898977346485386743971480, +0.100454504665541924074770762173189340E-1), (+1.38706840870716647173358556835982349, +0.671367013968432204200124342863662816), (+1.25661830844163589076006789834233233, +0.251942181511332612357062423880387701), (+1.62286789382818151855242225330559003, +0.253520205959481477347707362441787474), (+1.18560269812531965602742964414032550, +0.754204413149816400459849329133382029), (+1.90806848957202299184367531047452152, +0.231045138501606947459336353834778827), (+1.26530597915273002778763520018886936, +0.671260695608072653503454768434880122E-1), (+1.64581640148649632636564851817307790, +0.582908025026678635400821029599262792), (+1.14491294110717288301998794909855483, +0.861840994584963114945529553749811720), (+1.00466703341516056925151770915771932, +0.402931024333820240031291315772827488), (+1.02066755897934996764484334043919426, +0.542966042818198186000944323869108994), (+1.94769172095098636577503910252516299, +0.951544825409016202662189325200361506), (+1.99177502033940065902273991926102044, +0.281065242584292431712459087914741408), (+1.31194204218409404219557734439330052, +0.920518283924386495714764674862808201), (+1.34369262764915678228836456847278196, +0.644990071544463779432822908215256557), (+1.77178212573171943223864484695110533, +0.267374239421891390155394127801892051E-1), (+1.55295532231999834356268700279712684, +0.401761355480796492930370641456856291), (+1.81043469124371170781335879236383162, +0.157322895930004229233951816528526838), (+1.66228877026523734120233800425017822, +0.111997433916348794936128691531205411), (+1.73591163391257952697978022223334666, +0.146205508148636792002602566438608477E-1)

347

348adat = getFFTI(getFFTF(data))

349adat

350(+1.73825256256820909807096675598607238, +0.619928008049127713809711547078227601), (+1.10517611303202733184104277317552667, +0.723299127939174294440937636342091960), (+1.98975433424789812204364163724746643, +0.528401395618786617507070625389511604), (+1.58729766974220589533629612949696163, +0.527693942900822265476508976861611437), (+1.89558781671403157333484178387421635, +0.531506562666345474561189649280321908), (+1.77143743910481246037821927716388489, +0.481103914873970350230144731619448293), (+1.50183964683003303453086135074997005, +0.890722663818297269782542848780409757), (+1.35702459725620884521419677209403732, +0.672805988000092753374689830533566245), (+1.92624247039080736283771495354318006, +0.997034823867568664424126736878882976E-1), (+1.91790415921351150079311789550301367, +0.374701016656591449384721468257257874), (+1.69588489908203212777362092305707425, +0.635490975512030455712406035004005496), (+1.22759578691385612056438396874822400, +0.865662908270248995302643649484016208), (+1.56369160137099563868081804642903725, +0.624402493939436944134937107571588415), (+1.82972893988170543190724993271073977, +0.418709138666943875149125574136673358), (+1.02771150690342249557333574938644164, +0.595745755468482086165846179702591784), (+1.89139142572398907539213679297727015, +0.172882209866470589594779768874689060E-1), (+1.56445698966791630858593038374815656, +0.998687994836912765439954222554624302), (+1.91444910692117099376208674140410946, +0.334787473128745008146578956358225040), (+1.48374941812868571298650509016138587, +0.993427907081478973451736969139124159), (+1.36807700726837338322990296237229823, +0.953447094416518413816447570504299373), (+1.18697539948100224675723941011704000, +0.602146493737326396277594328840698580), (+1.53636228812884695007667569054057085, +0.407508053386138804475382511766162646), (+1.20811928424933197078783454747471602, +0.749585330056953498210164619602286709), (+1.35192971536298446341635939420865875, +0.353951969549431304597735049900767801), (+1.55853994114193482112535952431247004, +0.457720756041648244961995350364760309), (+1.69250860562277816202775976893348701, +0.579797973021616589920025030103641168), (+1.35689084377377672626288174895716880, +0.914478677870819368502691457205793549), (+1.83433169875744377020308998684877706, +0.574679817672691344961531843315670331), (+1.94059261251533558991640189676487145, +0.439343158104268034111245467866288171), (+1.35098401082753558600578442775209719, +0.329448823777966033871477712573903726), (+1.69208287049755160034736503369414623, +0.405157395605351992449433511117972240), (+1.91912655594396823060402304863792786, +0.584726210728555734657129205470604963), (+1.96704143807824290699775055941327899, +0.942003126274359604877086221195035755E-1), (+1.95817671684563293283183012744786180, +0.921731572387941368413148929713008686), (+1.54577740648667787687109475015420459, +0.472155574867187197910244012454779480), (+1.12707758540293906959545409379292830, +0.159727386477043960410992124029892717), (+1.50637823723719592815240998081881893, +0.237160428463408713380797054042343592), (+1.14105766030706434611949717358037745, +0.263649212889336480669827118070938479), (+1.67861593431211725465347505737892923, +0.718877500290843638012297242632641168E-1), (+1.22596564794709312824431187874796458, +0.955455507953275807706135116537264264), (+1.29143131043859510261450197347467327, +0.188922064642566456518962857798101822), (+1.38457457791450253575704286989708422, +0.328481006547519184097432107850414832), (+1.04600080834327337628589902751300521, +0.528761119196547517016780560101866584), (+1.19333495550461598876339988208363448, +0.527670487424708222016552562885189292), (+1.44305964943050756780084543458781085, +0.481222729621191125612180300555510469), (+1.97424556022349491837777716687520157, +0.854257466699671841725179666230842155), (+1.36234470880914593589432351518831349, +0.162103878576270744957836910135733191E-1), (+1.16777335651954465693388346191466822, +0.697036472506376846422392997277924028), (+1.26180829991783086401994779779540805, +0.122984847335707616234051006349401311), (+1.80691301941012807250982802975137995, +0.360408154424430581765904597695789867), (+1.89517943121446406036740575831351936, +0.590664471947259303554950861242238099E-1), (+1.64006386004672267698094782153542652, +0.395290227829567493180464895089507572), (+1.16385321943628252808669124878824345, +0.894544794439918592116308475396363900), (+1.52940971555898977346485386743971460, +0.100454504665541924074770762173195057E-1), (+1.38706840870716647173358556835982407, +0.671367013968432204200124342863662816), (+1.25661830844163589076006789834233233, +0.251942181511332612357062423880387412), (+1.62286789382818151855242225330558965, +0.253520205959481477347707362441787908), (+1.18560269812531965602742964414032512, +0.754204413149816400459849329133382222), (+1.90806848957202299184367531047452133, +0.231045138501606947459336353834778610), (+1.26530597915273002778763520018886955, +0.671260695608072653503454768434882409E-1), (+1.64581640148649632636564851817307771, +0.582908025026678635400821029599262695), (+1.14491294110717288301998794909855541, +0.861840994584963114945529553749811817), (+1.00466703341516056925151770915771932, +0.402931024333820240031291315772827488), (+1.02066755897934996764484334043919368, +0.542966042818198186000944323869109091), (+1.94769172095098636577503910252516241, +0.951544825409016202662189325200361506), (+1.99177502033940065902273991926102005, +0.281065242584292431712459087914741649), (+1.31194204218409404219557734439330033, +0.920518283924386495714764674862808490), (+1.34369262764915678228836456847278254, +0.644990071544463779432822908215256750), (+1.77178212573171943223864484695110514, +0.267374239421891390155394127801889884E-1), (+1.55295532231999834356268700279712684, +0.401761355480796492930370641456856339), (+1.81043469124371170781335879236383104, +0.157322895930004229233951816528526982), (+1.66228877026523734120233800425017841, +0.111997433916348794936128691531205628), (+1.73591163391257952697978022223334666, +0.146205508148636792002602566438612134E-1)

351reltol = sqrt(epsilon(1._TKC))

352reltol

353+0.138777878078144567552953958511352539E-16

354isClose(data, adat, reltol = reltol)

355T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

356call setAsserted(all(isClose(data, adat, reltol = reltol)))

357

358lenData = getUnifRand(5, 100)

359lenData

360+80

361data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

362data

363+1.79985118, +1.52381492, +1.39208555, +1.34929550, +1.19908214, +1.13519573, +1.32626677, +1.43633366, +1.65767431, +1.74183702, +1.84346211, +1.57081115, +1.49029660, +1.42867875, +1.11454749, +1.98907590, +1.53466606, +1.71908617, +1.55894685, +1.07377470, +1.03542924, +1.12257183, +1.09126079, +1.15273905, +1.99586749, +1.45807886, +1.50129533, +1.44572079, +1.44630980, +1.57973444, +1.38101208, +1.72313452, +1.58311105, +1.21966171, +1.09048462, +1.52755880, +1.94176304, +1.65516996, +1.78487873, +1.38995409, +1.58359492, +1.88036585, +1.93881726, +1.47729921, +1.15043426, +1.50213599, +1.91285324, +1.59155083, +1.16851711, +1.51049888, +1.81107759, +1.50827873, +1.84576297, +1.75977266, +1.63760519, +1.24657393, +1.49447346, +1.53784776, +1.01313293, +1.13194668, +1.66753602, +1.46362400, +1.33820093, +1.08422637, +1.59112656, +1.47764182, +1.48807359, +1.77436399, +1.89514327, +1.41040850, +1.80940998, +1.43807173, +1.10675883, +1.42367268, +1.81945324, +1.18193984, +1.45243883, +1.23036599, +1.46778810, +1.13395190

364

365adat = getFFTI(getFFTF(data))

366adat

367+1.79985082, +1.52381492, +1.39208531, +1.34929526, +1.19908202, +1.13519561, +1.32626641, +1.43633354, +1.65767407, +1.74183714, +1.84346199, +1.57081103, +1.49029624, +1.42867887, +1.11454713, +1.98907554, +1.53466594, +1.71908629, +1.55894685, +1.07377470, +1.03542936, +1.12257206, +1.09126079, +1.15273917, +1.99586761, +1.45807922, +1.50129569, +1.44572091, +1.44630969, +1.57973480, +1.38101232, +1.72313464, +1.58311081, +1.21966195, +1.09048462, +1.52755880, +1.94176316, +1.65517032, +1.78487873, +1.38995409, +1.58359480, +1.88036621, +1.93881726, +1.47729909, +1.15043437, +1.50213623, +1.91285360, +1.59155083, +1.16851699, +1.51049900, +1.81107748, +1.50827873, +1.84576321, +1.75977314, +1.63760507, +1.24657393, +1.49447334, +1.53784800, +1.01313293, +1.13194656, +1.66753602, +1.46362424, +1.33820128, +1.08422649, +1.59112656, +1.47764194, +1.48807359, +1.77436411, +1.89514351, +1.41040874, +1.80940998, +1.43807185, +1.10675883, +1.42367303, +1.81945360, +1.18193996, +1.45243871, +1.23036635, +1.46778822, +1.13395190

368reltol = sqrt(epsilon(1._TKC))

369reltol

370+0.345266977E-3

371isClose(data, adat, reltol = reltol)

372T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

373call setAsserted(all(isClose(data, adat, reltol = reltol)))

374

375lenData = getUnifRand(5, 100)

376lenData

377+77

378data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

379data

380+1.5048750272428970, +1.2552912049000160, +1.8827965193751359, +1.3338077654296836, +1.9078248797526927, +1.0468008646502827, +1.4293090462846136, +1.5585534602439179, +1.1149633347505294, +1.7350574865619768, +1.3412527304614934, +1.8624468506048182, +1.1858373617919855, +1.9279796796954871, +1.3225539397629276, +1.4109256551185356, +1.3746300936894182, +1.0034045291686036, +1.7880210349472723, +1.9734831265413741, +1.4600955001628009, +1.0026382890463568, +1.3635921645839120, +1.0374864558083241, +1.1669442631111457, +1.1991412472052820, +1.5247355906195397, +1.1291336586041765, +1.1368170166627274, +1.3224324371839309, +1.1477719077110451, +1.8978444334700857, +1.7146026734867461, +1.1020102004019119, +1.5886677020099413, +1.5027308157730110, +1.1183238344887534, +1.6731082976106757, +1.1594919628959972, +1.2395067122600274, +1.2837547909717242, +1.7486555549309717, +1.2251625310280820, +1.6271293733676884, +1.1946157055123865, +1.4611644217008299, +1.7540414658564267, +1.2381876618050365, +1.2599615798136390, +1.1940756327937605, +1.1856685215878380, +1.5756815463148079, +1.3700815441847187, +1.5277638539799216, +1.4262980394784672, +1.9861331020056652, +1.0473787621959965, +1.1873295277611966, +1.2583478916637711, +1.8828303167700076, +1.8103530212822911, +1.8481986135360677, +1.2643542643343206, +1.2233342653070789, +1.8027407876094701, +1.0437389797166379, +1.6865817947257389, +1.4469729286928883, +1.0780890679018662, +1.0175889817223513, +1.5591396969235749, +1.0679427801359791, +1.3537499435180478, +1.0692688716387770, +1.3976267038949886, +1.4249088317532332, +1.4604912641192578

381

382adat = getFFTI(getFFTF(data))

383adat

384+1.5048750272428979, +1.2552912049000164, +1.8827965193751373, +1.3338077654296829, +1.9078248797526933, +1.0468008646502833, +1.4293090462846145, +1.5585534602439184, +1.1149633347505292, +1.7350574865619777, +1.3412527304614923, +1.8624468506048182, +1.1858373617919857, +1.9279796796954876, +1.3225539397629282, +1.4109256551185358, +1.3746300936894194, +1.0034045291686029, +1.7880210349472727, +1.9734831265413753, +1.4600955001628013, +1.0026382890463568, +1.3635921645839126, +1.0374864558083245, +1.1669442631111455, +1.1991412472052818, +1.5247355906195408, +1.1291336586041762, +1.1368170166627285, +1.3224324371839311, +1.1477719077110458, +1.8978444334700848, +1.7146026734867457, +1.1020102004019130, +1.5886677020099420, +1.5027308157730108, +1.1183238344887532, +1.6731082976106759, +1.1594919628959963, +1.2395067122600267, +1.2837547909717242, +1.7486555549309715, +1.2251625310280818, +1.6271293733676879, +1.1946157055123872, +1.4611644217008291, +1.7540414658564258, +1.2381876618050365, +1.2599615798136388, +1.1940756327937616, +1.1856685215878384, +1.5756815463148088, +1.3700815441847185, +1.5277638539799221, +1.4262980394784681, +1.9861331020056658, +1.0473787621959965, +1.1873295277611968, +1.2583478916637718, +1.8828303167700069, +1.8103530212822905, +1.8481986135360691, +1.2643542643343204, +1.2233342653070798, +1.8027407876094703, +1.0437389797166388, +1.6865817947257389, +1.4469729286928885, +1.0780890679018669, +1.0175889817223516, +1.5591396969235753, +1.0679427801359793, +1.3537499435180482, +1.0692688716387764, +1.3976267038949883, +1.4249088317532335, +1.4604912641192582

385reltol = sqrt(epsilon(1._TKC))

386reltol

387+0.14901161193847656E-7

388isClose(data, adat, reltol = reltol)

389T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

390call setAsserted(all(isClose(data, adat, reltol = reltol)))

391

392lenData = getUnifRand(5, 100)

393lenData

394+14

395data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

396data

397+1.65761365317494451724597871821454333, +1.12468943544153574229959360067634758, +1.87894668606825424884103425908262985, +1.12010261886776722209405030946361641, +1.24869766696546316531219539042230211, +1.71124339188635331234296649524013472, +1.02912448780370004776055809257413218, +1.06231735853902900723973068811473038, +1.10019104903192146823132073891926508, +1.36169428914045176651629116449421476, +1.64997427344015764770520682181664969, +1.10339189752860713366118079948975162, +1.63343318846114188676437389108286425, +1.24889252684095305940625709427074742

398

399adat = getFFTI(getFFTF(data))

400adat

401+1.65761365317494451724597871821454295, +1.12468943544153574229959360067634739, +1.87894668606825424884103425908262946, +1.12010261886776722209405030946361602, +1.24869766696546316531219539042230191, +1.71124339188635331234296649524013472, +1.02912448780370004776055809257413218, +1.06231735853902900723973068811473019, +1.10019104903192146823132073891926508, +1.36169428914045176651629116449421496, +1.64997427344015764770520682181664969, +1.10339189752860713366118079948975142, +1.63343318846114188676437389108286406, +1.24889252684095305940625709427074722

402reltol = sqrt(epsilon(1._TKC))

403reltol

404+0.138777878078144567552953958511352539E-16

405isClose(data, adat, reltol = reltol)

406T, T, T, T, T, T, T, T, T, T, T, T, T, T

407call setAsserted(all(isClose(data, adat, reltol = reltol)))

408

409lenData = getUnifRand(5, 100)

410lenData

411+89

412data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

413data

414(+1.63547421, +0.993457794), (+1.48542857, +0.367158055), (+1.27949953, +0.898341179), (+1.50811386, +0.344295144), (+1.36222291, +0.395150661), (+1.68211699, +0.646193624E-1), (+1.48720527, +0.743504763E-1), (+1.61097431, +0.154168010E-1), (+1.39084959, +0.807513595), (+1.71001983, +0.324769676), (+1.33319736, +0.155963302E-1), (+1.20993567, +0.931769133), (+1.77241731, +0.288368702), (+1.89561558, +0.119629443), (+1.15156901, +0.381577730), (+1.05025268, +0.939747393), (+1.87590218, +0.467935383), (+1.39083588, +0.164096773), (+1.37531853, +0.778708339), (+1.68990052, +0.427660465), (+1.99808562, +0.518690646), (+1.16401553, +0.717566729), (+1.91773009, +0.676915646E-1), (+1.16099513, +0.429046094), (+1.34587884, +0.852451682), (+1.76820469, +0.908358335), (+1.85075212, +0.834486485), (+1.67664242, +0.815740228E-1), (+1.21065259, +0.845343113), (+1.49767327, +0.779981554), (+1.60112190, +0.863434076), (+1.55196834, +0.162160695), (+1.33096755, +0.484251440), (+1.97473025, +0.176155269), (+1.06651926, +0.774017870), (+1.87281597, +0.237510264), (+1.43121576, +0.330300987), (+1.62252188, +0.668822646), (+1.78002000, +0.199115336), (+1.22766209, +0.726990640), (+1.32249522, +0.988798976), (+1.83157468, +0.294615805), (+1.61563659, +0.889439762), (+1.13339233, +0.718818069), (+1.85008228, +0.124328077), (+1.60279608, +0.610606432), (+1.64460588, +0.802255213), (+1.01019168, +0.295538008), (+1.01581860, +0.608350217), (+1.79091084, +0.993012488), (+1.49117160, +0.543065786), (+1.22743988, +0.427628338), (+1.69566560, +0.461569548), (+1.91532326, +0.863332331), (+1.92250741, +0.857734680E-2), (+1.08576810, +0.969125867), (+1.59715021, +0.454146862E-1), (+1.65549874, +0.347755253), (+1.07706833, +0.538418710), (+1.03168249, +0.186119080E-1), (+1.00385416, +0.818479061), (+1.56816912, +0.400283098), (+1.72272325, +0.591830969), (+1.61323488, +0.546635985E-1), (+1.06263447, +0.940973341), (+1.14740443, +0.839835882), (+1.73946643, +0.179207921), (+1.59379184, +0.205408454), (+1.78126729, +0.326246500), (+1.45524549, +0.614912808), (+1.65715992, +0.435826957), (+1.40794373, +0.198699057), (+1.80704689, +0.884099543), (+1.09619641, +0.770109355), (+1.73250055, +0.635237336), (+1.42828238, +0.172426641), (+1.57716894, +0.748474598E-1), (+1.50916076, +0.814925075), (+1.97249806, +0.380504191), (+1.93706429, +0.909491420), (+1.00548840, +0.416820526), (+1.17857027, +0.860888720), (+1.47807097, +0.365376770), (+1.95882583, +0.967293322), (+1.83841872, +0.678551257), (+1.26539624, +0.662937403), (+1.65574574, +0.711260378), (+1.83130097, +0.764139295), (+1.87833619, +0.190209329)

415

416adat = getFFTI(getFFTF(data))

417adat

418(+1.63547719, +0.993458629), (+1.48542869, +0.367157787), (+1.27949989, +0.898341179), (+1.50811374, +0.344294995), (+1.36222363, +0.395150512), (+1.68211710, +0.646195784E-1), (+1.48720527, +0.743505061E-1), (+1.61097443, +0.154166920E-1), (+1.39084995, +0.807513654), (+1.71001971, +0.324769467), (+1.33319747, +0.155961541E-1), (+1.20993578, +0.931769073), (+1.77241778, +0.288368613), (+1.89561605, +0.119629495), (+1.15156853, +0.381577909), (+1.05025268, +0.939747453), (+1.87590182, +0.467935473), (+1.39083540, +0.164096922), (+1.37531877, +0.778708279), (+1.68990064, +0.427660495), (+1.99808645, +0.518690765), (+1.16401565, +0.717566669), (+1.91773045, +0.676916167E-1), (+1.16099548, +0.429046154), (+1.34587884, +0.852451980), (+1.76820457, +0.908358276), (+1.85075212, +0.834486723), (+1.67664242, +0.815741122E-1), (+1.21065271, +0.845343530), (+1.49767363, +0.779981792), (+1.60112202, +0.863434196), (+1.55196905, +0.162160814), (+1.33096778, +0.484251559), (+1.97472990, +0.176155329), (+1.06651938, +0.774018109), (+1.87281609, +0.237510294), (+1.43121684, +0.330301136), (+1.62252247, +0.668822885), (+1.78002059, +0.199115366), (+1.22766280, +0.726990759), (+1.32249534, +0.988798857), (+1.83157468, +0.294616252), (+1.61563742, +0.889440060), (+1.13339317, +0.718818247), (+1.85008276, +0.124328397), (+1.60279679, +0.610606790), (+1.64460659, +0.802255332), (+1.01019275, +0.295538485), (+1.01581860, +0.608350635), (+1.79091108, +0.993012369), (+1.49117219, +0.543065965), (+1.22744048, +0.427628338), (+1.69566619, +0.461569875), (+1.91532433, +0.863332510), (+1.92250764, +0.857740082E-2), (+1.08576822, +0.969126105), (+1.59714997, +0.454146415E-1), (+1.65549886, +0.347755343), (+1.07706892, +0.538419008), (+1.03168249, +0.186120365E-1), (+1.00385451, +0.818479419), (+1.56816924, +0.400283396), (+1.72272325, +0.591831148), (+1.61323476, +0.546637140E-1), (+1.06263447, +0.940973341), (+1.14740443, +0.839836061), (+1.73946679, +0.179208100), (+1.59379220, +0.205408528), (+1.78126752, +0.326246470), (+1.45524633, +0.614913046), (+1.65716004, +0.435827017), (+1.40794396, +0.198699132), (+1.80704641, +0.884099722), (+1.09619594, +0.770109475), (+1.73250055, +0.635237396), (+1.42828202, +0.172426894), (+1.57716954, +0.748474374E-1), (+1.50916111, +0.814924955), (+1.97249806, +0.380504131), (+1.93706453, +0.909491241), (+1.00548816, +0.416820407), (+1.17857051, +0.860888898), (+1.47807109, +0.365376711), (+1.95882559, +0.967293203), (+1.83841884, +0.678551257), (+1.26539695, +0.662937403), (+1.65574551, +0.711260319), (+1.83130121, +0.764139235), (+1.87833643, +0.190209255)

419reltol = sqrt(epsilon(1._TKC))

420reltol

421+0.345266977E-3

422isClose(data, adat, reltol = reltol)

423T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

424call setAsserted(all(isClose(data, adat, reltol = reltol)))

425

426lenData = getUnifRand(5, 100)

427lenData

428+95

429data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

430data

431(+1.1389181238719912, +0.83849606154566492E-1), (+1.7084333600180854, +0.20185274233420358), (+1.0472006157503393, +0.65086432522453941), (+1.0627596231830554, +0.15348065065635363), (+1.5336337183979944, +0.10558547191249301), (+1.0098879110908272, +0.27681896281322582), (+1.3220480967050126, +0.44946456764056286E-1), (+1.6827790946153560, +0.15330500841814465), (+1.1957818987497215, +0.93601222247222460), (+1.3597239020258427, +0.33519351194665714), (+1.7141596468395734, +0.41173452725011395), (+1.0531960080046159, +0.16105631977444013), (+1.4657168496358963, +0.43880091268616017), (+1.7332705546010381, +0.43640288134297989), (+1.3270518341976276, +0.36450218741649354), (+1.7852036839219709, +0.65415773236561381), (+1.0041598339924533, +0.58973257030156323E-1), (+1.8654090024629493, +0.45157307767499610), (+1.5057681217926526, +0.28252951911985291E-1), (+1.3738961252569104, +0.91045058993951267), (+1.3449510696945235, +0.69112062935114738E-1), (+1.1124167431740677, +0.52891157147733470), (+1.2801246689650272, +0.65160208296715016), (+1.9906833923276599, +0.79952054374085402), (+1.4614821269172189, +0.15806670912127041), (+1.5879215633471619, +0.47576442082822645), (+1.1790506260677516, +0.73184590898451796), (+1.2461251116579737, +0.95506925768015916), (+1.3151768638136594, +0.60035883108048738), (+1.6518252906366580, +0.76924622667549603), (+1.0302522890876924, +0.34742036729363091), (+1.7133114431206735, +0.62217613918478631), (+1.1669215658628282, +0.42880015399295002), (+1.2310753500758251, +0.34217590922999519), (+1.8583216826262985, +0.35606674913863889), (+1.9743580307372062, +0.89305056397934113), (+1.2434338008603651, +0.53443075500087700), (+1.3207883652164094, +0.42758648271122668), (+1.6649961990905924, +0.22984225666663693E-1), (+1.9317171014532977, +0.78527016567032060), (+1.8456703439292734, +0.89907517388897928), (+1.5558035693234584, +0.69563105482127741E-2), (+1.0952646560878707, +0.78873094711051106), (+1.2454746581161327, +0.57553223255507324), (+1.3209081636669913, +0.19048266697319260), (+1.5802007692093558, +0.36394627093885368), (+1.3017927804174074, +0.39772468808666195), (+1.1670002993459301, +0.44785999812684774), (+1.2651349324598669, +0.27093230828986214), (+1.1288336531757222, +0.12424763750027856), (+1.7693279114839182, +0.81664129142122110), (+1.9460904334775067, +0.31352770044741252), (+1.6274058522456807, +0.71167703638802238), (+1.7764933813404911, +0.65112879220794317), (+1.9318442153822715, +0.69756958877772834), (+1.6495341652619668, +0.39232883512870442), (+1.7155923906649431, +0.75018268654028175), (+1.9740277448119028, +0.26371664122689265), (+1.9270512925152810, +0.46357395406656354), (+1.2513577863160585, +0.34670090073872506), (+1.0061975994820576, +0.92475166125926467), (+1.2586925207131823, +0.25119331593581196), (+1.9604976366116005, +0.63127869084331989), (+1.7216691627641483, +0.76185728020592625), (+1.7807510960920723, +0.92867197973427684), (+1.2538693780079313, +0.87982054565474144E-1), (+1.1229158244258821, +0.57745615990898147), (+1.5952480205091981, +0.24491941853496701), (+1.2968707023795143, +0.63066601357557373E-1), (+1.6672460472588226, +0.84840780901897639), (+1.5772495197523713, +0.35681567658908075), (+1.7326373502874346, +0.42123540875580956), (+1.5157102764013755, +0.93511403438654273E-1), (+1.9780136689702457, +0.79566440853940945), (+1.2876467034917622, +0.16620565427776246), (+1.2839332418546592, +0.53882802586943690), (+1.8213664388429196, +0.65922757910655760), (+1.8926334243032783, +0.20739135631648742), (+1.3804055499865682, +0.45753537670239597E-1), (+1.7591138288535062, +0.75751582710216536E-1), (+1.9534449110476251, +0.48688464664843278), (+1.4330631302974464, +0.31011695178273491), (+1.5082154910489702, +0.39490268367354509), (+1.9832795736147206, +0.42384769782030340), (+1.9582914507898677, +0.78008228415550507), (+1.4090456076127904, +0.24474918986079319), (+1.7482394700932669, +0.40147029301073456), (+1.4426866022324625, +0.24387276825790571), (+1.1229259701994674, +0.64709053053156118), (+1.7704783963735549, +0.79398905622785021), (+1.6825514614392041, +0.81552236871401917), (+1.9189877829235100, +0.95557496601315117), (+1.1398918727206748, +0.24862678731493515), (+1.8508546630194476, +0.80295575900311444E-1), (+1.0240029999433209, +0.78131119571995677)

432

433adat = getFFTI(getFFTF(data))

434adat

435(+1.1389181238719934, +0.83849606154567588E-1), (+1.7084333600180843, +0.20185274233420336), (+1.0472006157503388, +0.65086432522453952), (+1.0627596231830549, +0.15348065065635383), (+1.5336337183979942, +0.10558547191249315), (+1.0098879110908274, +0.27681896281322615), (+1.3220480967050126, +0.44946456764056480E-1), (+1.6827790946153562, +0.15330500841814451), (+1.1957818987497217, +0.93601222247222482), (+1.3597239020258431, +0.33519351194665742), (+1.7141596468395748, +0.41173452725011422), (+1.0531960080046157, +0.16105631977444015), (+1.4657168496358972, +0.43880091268616073), (+1.7332705546010383, +0.43640288134297966), (+1.3270518341976274, +0.36450218741649365), (+1.7852036839219705, +0.65415773236561392), (+1.0041598339924525, +0.58973257030156462E-1), (+1.8654090024629486, +0.45157307767499610), (+1.5057681217926522, +0.28252951911985378E-1), (+1.3738961252569122, +0.91045058993951322), (+1.3449510696945224, +0.69112062935114474E-1), (+1.1124167431740666, +0.52891157147733470), (+1.2801246689650261, +0.65160208296714994), (+1.9906833923276592, +0.79952054374085402), (+1.4614821269172193, +0.15806670912127035), (+1.5879215633471615, +0.47576442082822634), (+1.1790506260677509, +0.73184590898451796), (+1.2461251116579732, +0.95506925768015927), (+1.3151768638136601, +0.60035883108048793), (+1.6518252906366582, +0.76924622667549625), (+1.0302522890876922, +0.34742036729363113), (+1.7133114431206731, +0.62217613918478620), (+1.1669215658628278, +0.42880015399294985), (+1.2310753500758249, +0.34217590922999491), (+1.8583216826262976, +0.35606674913863873), (+1.9743580307372057, +0.89305056397934124), (+1.2434338008603636, +0.53443075500087678), (+1.3207883652164090, +0.42758648271122679), (+1.6649961990905933, +0.22984225666664315E-1), (+1.9317171014532968, +0.78527016567032049), (+1.8456703439292721, +0.89907517388897895), (+1.5558035693234578, +0.69563105482128218E-2), (+1.0952646560878703, +0.78873094711051095), (+1.2454746581161320, +0.57553223255507335), (+1.3209081636669906, +0.19048266697319219), (+1.5802007692093551, +0.36394627093885390), (+1.3017927804174074, +0.39772468808666184), (+1.1670002993459301, +0.44785999812684818), (+1.2651349324598671, +0.27093230828986253), (+1.1288336531757224, +0.12424763750027870), (+1.7693279114839184, +0.81664129142122144), (+1.9460904334775062, +0.31352770044741235), (+1.6274058522456796, +0.71167703638802271), (+1.7764933813404900, +0.65112879220794306), (+1.9318442153822706, +0.69756958877772801), (+1.6495341652619662, +0.39232883512870409), (+1.7155923906649424, +0.75018268654028142), (+1.9740277448119037, +0.26371664122689359), (+1.9270512925152798, +0.46357395406656332), (+1.2513577863160572, +0.34670090073872439), (+1.0061975994820567, +0.92475166125926456), (+1.2586925207131814, +0.25119331593581201), (+1.9604976366116000, +0.63127869084331978), (+1.7216691627641478, +0.76185728020592625), (+1.7807510960920716, +0.92867197973427695), (+1.2538693780079311, +0.87982054565474532E-1), (+1.1229158244258821, +0.57745615990898158), (+1.5952480205091983, +0.24491941853496729), (+1.2968707023795143, +0.63066601357557636E-1), (+1.6672460472588222, +0.84840780901897661), (+1.5772495197523710, +0.35681567658908070), (+1.7326373502874339, +0.42123540875580956), (+1.5157102764013750, +0.93511403438654384E-1), (+1.9780136689702448, +0.79566440853940945), (+1.2876467034917614, +0.16620565427776252), (+1.2839332418546583, +0.53882802586943690), (+1.8213664388429207, +0.65922757910655772), (+1.8926334243032767, +0.20739135631648739), (+1.3804055499865668, +0.45753537670239701E-1), (+1.7591138288535062, +0.75751582710216328E-1), (+1.9534449110476246, +0.48688464664843289), (+1.4330631302974457, +0.31011695178273496), (+1.5082154910489698, +0.39490268367354514), (+1.9832795736147204, +0.42384769782030335), (+1.9582914507898674, +0.78008228415550485), (+1.4090456076127915, +0.24474918986079366), (+1.7482394700932673, +0.40147029301073456), (+1.4426866022324620, +0.24387276825790610), (+1.1229259701994683, +0.64709053053156151), (+1.7704783963735544, +0.79398905622785010), (+1.6825514614392041, +0.81552236871401940), (+1.9189877829235087, +0.95557496601315117), (+1.1398918727206742, +0.24862678731493482), (+1.8508546630194465, +0.80295575900311403E-1), (+1.0240029999433198, +0.78131119571995633)

436reltol = sqrt(epsilon(1._TKC))

437reltol

438+0.14901161193847656E-7

439isClose(data, adat, reltol = reltol)

440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

441call setAsserted(all(isClose(data, adat, reltol = reltol)))

442

443lenData = getUnifRand(5, 100)

444lenData

445+25

446data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

447data

448(+1.12662261678014678494898630672676319, +0.594945727730192268674785297663295256), (+1.54619600747817801079549415339043389, +0.956258715385944625952436708751285706), (+1.63325072537077299614168717302166549, +0.256202339373047123427129588670418674), (+1.21022423752492129355493741856872753, +0.484753210374594514809541488009764851), (+1.61275158287457390175546035585501094, +0.412345558393065937654363121617694371), (+1.01266714382020986467113563878065948, +0.440760498637182354111948221564502432), (+1.46083437282867277550222579765908061, +0.810967655507914054314695062832322019), (+1.92958132179784509866393160189125070, +0.656873688088710235474663509733516797), (+1.73890397979722818027269247928150239, +0.433993555651121565928736587075633793), (+1.91875151428525952288443644098100571, +0.765367244294352446692202101476265047), (+1.42962023092443710865542320461069406, +0.868873951974610356344749534072258948), (+1.10837444254427735060730179584201734, +0.304057057167769880358961490391957100E-1), (+1.07063678890250023934065148905018787, +0.799297248720299805756111979948049854), (+1.23924575759990624248277585222365035, +0.413424149585651988461166795237825083), (+1.90248508084180926754968987876664901, +0.635028569659132528652407391616614610), (+1.97762162215380685364965445298070455, +0.229808101551797745605220512570952321), (+1.55266395500647262973984009004586945, +0.247564998196697771964514846092112396), (+1.49900359465072206909269034227397395, +0.503102755762039481149888598695377294), (+1.82440487874076692969747038732258419, +0.930916698881106704281586283058902910E-1), (+1.71921209916245337514516363799611123, +0.379347569156708757900714493579385423E-1), (+1.97154891827034869705505581835608346, +0.246376402147434244246815781417400774E-1), (+1.79773928590699603708107626932007205, +0.866571878526901220454636137502761662), (+1.00051193984195605967289956016266057, +0.857640266099005364134103972553837119), (+1.93039349919117540653242389077684878, +0.924090767921353739855721976019461319), (+1.21392437892400627088350109293451427, +0.136827876903681126686387637280052509)

449

450adat = getFFTI(getFFTF(data))

451adat

452(+1.12662261678014678494898630672676299, +0.594945727730192268674785297663295160), (+1.54619600747817801079549415339043408, +0.956258715385944625952436708751285802), (+1.63325072537077299614168717302166569, +0.256202339373047123427129588670418578), (+1.21022423752492129355493741856872792, +0.484753210374594514809541488009764754), (+1.61275158287457390175546035585501113, +0.412345558393065937654363121617694371), (+1.01266714382020986467113563878065987, +0.440760498637182354111948221564502336), (+1.46083437282867277550222579765908080, +0.810967655507914054314695062832322019), (+1.92958132179784509866393160189125108, +0.656873688088710235474663509733516990), (+1.73890397979722818027269247928150297, +0.433993555651121565928736587075633841), (+1.91875151428525952288443644098100590, +0.765367244294352446692202101476265144), (+1.42962023092443710865542320461069425, +0.868873951974610356344749534072258852), (+1.10837444254427735060730179584201753, +0.304057057167769880358961490391956558E-1), (+1.07063678890250023934065148905018826, +0.799297248720299805756111979948049951), (+1.23924575759990624248277585222365093, +0.413424149585651988461166795237825179), (+1.90248508084180926754968987876664863, +0.635028569659132528652407391616614707), (+1.97762162215380685364965445298070493, +0.229808101551797745605220512570952297), (+1.55266395500647262973984009004586965, +0.247564998196697771964514846092112372), (+1.49900359465072206909269034227397434, +0.503102755762039481149888598695377390), (+1.82440487874076692969747038732258477, +0.930916698881106704281586283058903753E-1), (+1.71921209916245337514516363799611104, +0.379347569156708757900714493579386265E-1), (+1.97154891827034869705505581835608346, +0.246376402147434244246815781417400232E-1), (+1.79773928590699603708107626932007205, +0.866571878526901220454636137502761758), (+1.00051193984195605967289956016266077, +0.857640266099005364134103972553837312), (+1.93039349919117540653242389077684955, +0.924090767921353739855721976019461415), (+1.21392437892400627088350109293451446, +0.136827876903681126686387637280052653)

453reltol = sqrt(epsilon(1._TKC))

454reltol

455+0.138777878078144567552953958511352539E-16

456isClose(data, adat, reltol = reltol)

457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

458call setAsserted(all(isClose(data, adat, reltol = reltol)))

459

460lenData = getUnifRand(5, 100)

461lenData

462+22

463data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

464data

465+1.18120563, +1.83278465, +1.40582538, +1.93707275, +1.87611866, +1.16887140, +1.33384728, +1.35136092, +1.00429392, +1.54468298, +1.27628899, +1.83991313, +1.08578515, +1.48777926, +1.70128989, +1.29048455, +1.58822012, +1.58169210, +1.04747653, +1.92631698, +1.84929085, +1.91041124

466

467adat = getFFTI(getFFTF(data))

468adat

469+1.18120539, +1.83278453, +1.40582561, +1.93707311, +1.87611878, +1.16887128, +1.33384740, +1.35136116, +1.00429344, +1.54468250, +1.27628934, +1.83991373, +1.08578563, +1.48777997, +1.70128965, +1.29048407, +1.58822012, +1.58169234, +1.04747641, +1.92631698, +1.84929109, +1.91041160

470reltol = sqrt(epsilon(1._TKC))

471reltol

472+0.345266977E-3

473isClose(data, adat, reltol = reltol)

474T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

475call setAsserted(all(isClose(data, adat, reltol = reltol)))

476

477lenData = getUnifRand(5, 100)

478lenData

479+9

480data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

481data

482+1.8120102180227882, +1.7117123502703837, +1.6625087317343792, +1.6030238320089918, +1.6080727629937686, +1.8545871407016696, +1.6195288122489986, +1.0131931633790081, +1.6312571916203478

483

484adat = getFFTI(getFFTF(data))

485adat

486+1.8120102180227882, +1.7117123502703837, +1.6625087317343787, +1.6030238320089916, +1.6080727629937686, +1.8545871407016692, +1.6195288122489984, +1.0131931633790083, +1.6312571916203471

487reltol = sqrt(epsilon(1._TKC))

488reltol

489+0.14901161193847656E-7

490isClose(data, adat, reltol = reltol)

491T, T, T, T, T, T, T, T, T

492call setAsserted(all(isClose(data, adat, reltol = reltol)))

493

494lenData = getUnifRand(5, 100)

495lenData

496+70

497data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

498data

499+1.32727778748989977045420165630745344, +1.13835240568540604688270366678615361, +1.98513311124995503541147292420470277, +1.40659560040516536368481045452150557, +1.42540168816948333912491745582216516, +1.81406292252780019272743513268752548, +1.14704326069530970193360171979243167, +1.61462020437298524739334952024656403, +1.15740644006454995077809352361098701, +1.67032965086150464854065122894105202, +1.53070211876473324093430227534461517, +1.59172827068539687663344057992046416, +1.88633770779609231001461254463303475, +1.45561881735210865985163865916453428, +1.08534975280784923285764741021920865, +1.22673824342118934859632399490580501, +1.35838291798539935291210179478706928, +1.33420956793902611527270206712356979, +1.56215849372766176784286664652701258, +1.26304174116348991300835642454054971, +1.64387852236548804878526517573864138, +1.26565967875041471009822892335856014, +1.02510342660305973128250920722579012, +1.72306605599936548895448263619736899, +1.91771894825724940626645152912521000, +1.96509198280399999909896873835774172, +1.20261012932914177955041776514737662, +1.75464214419364357214607562175862041, +1.73630746627903474679851018255776751, +1.65567406699947220604147845601784553, +1.63191427940586072196173512150376447, +1.99574379097583202349144401422435028, +1.97654621432780201841130297998958487, +1.98458992249805179906591283682870602, +1.88351654051491855157610615870585359, +1.24667870723944552860652059208683901, +1.87017257058058904875544345618209883, +1.10044911766086594158822520616237194, +1.94933310599838799775305111285950962, +1.77406336098502406585262740666983127, +1.51131212992794211658362180900224561, +1.96177351734808894444189585851013635, +1.52422560952817636159556200824278417, +1.70587713462992334145831579973650364, +1.86829446718418292561021072940780987, +1.08440619130912733288008038742219484, +1.51475575239138483311178534553702643, +1.39746233616127056052894946994009172, +1.68188264933577278388164970486455327, +1.39495206053404171727589549900965118, +1.46911145722905293973480550864265210, +1.90726761627190491505477377410629411, +1.00577737031286737176926092909525450, +1.16780345740595279815058911867034875, +1.25978201457612401518359746487044045, +1.28069269041103006022640827824651251, +1.62843635343217850161239857126619225, +1.31732897555301864950439901068730418, +1.99374892855202329930278516287247025, +1.33257715340963122404119007053076156, +1.75925811697279740268526933688248671, +1.34029761826041735925210248591354794, +1.66813863423107291133675815296833511, +1.48622831813129046656129872897939470, +1.45150247842000333621249332635074740, +1.85266993899202646663394832876459873, +1.15140550388171907454071247374791000, +1.45901737918373995089866415897133901, +1.24513153469663400350436255035462673, +1.90602362789093054738604055807284651

500

501adat = getFFTI(getFFTF(data))

502adat

503+1.32727778748989977045420165630745324, +1.13835240568540604688270366678615361, +1.98513311124995503541147292420470238, +1.40659560040516536368481045452150500, +1.42540168816948333912491745582216516, +1.81406292252780019272743513268752471, +1.14704326069530970193360171979243148, +1.61462020437298524739334952024656365, +1.15740644006454995077809352361098682, +1.67032965086150464854065122894105163, +1.53070211876473324093430227534461478, +1.59172827068539687663344057992046397, +1.88633770779609231001461254463303475, +1.45561881735210865985163865916453389, +1.08534975280784923285764741021920865, +1.22673824342118934859632399490580424, +1.35838291798539935291210179478706928, +1.33420956793902611527270206712356960, +1.56215849372766176784286664652701258, +1.26304174116348991300835642454054913, +1.64387852236548804878526517573864099, +1.26565967875041471009822892335855995, +1.02510342660305973128250920722578973, +1.72306605599936548895448263619736899, +1.91771894825724940626645152912521019, +1.96509198280399999909896873835774133, +1.20261012932914177955041776514737662, +1.75464214419364357214607562175862022, +1.73630746627903474679851018255776751, +1.65567406699947220604147845601784495, +1.63191427940586072196173512150376427, +1.99574379097583202349144401422435028, +1.97654621432780201841130297998958468, +1.98458992249805179906591283682870563, +1.88351654051491855157610615870585340, +1.24667870723944552860652059208683863, +1.87017257058058904875544345618209883, +1.10044911766086594158822520616237136, +1.94933310599838799775305111285950982, +1.77406336098502406585262740666983088, +1.51131212992794211658362180900224523, +1.96177351734808894444189585851013655, +1.52422560952817636159556200824278397, +1.70587713462992334145831579973650306, +1.86829446718418292561021072940780968, +1.08440619130912733288008038742219445, +1.51475575239138483311178534553702624, +1.39746233616127056052894946994009153, +1.68188264933577278388164970486455327, +1.39495206053404171727589549900965060, +1.46911145722905293973480550864265172, +1.90726761627190491505477377410629430, +1.00577737031286737176926092909525431, +1.16780345740595279815058911867034836, +1.25978201457612401518359746487044045, +1.28069269041103006022640827824651174, +1.62843635343217850161239857126619225, +1.31732897555301864950439901068730380, +1.99374892855202329930278516287247045, +1.33257715340963122404119007053076079, +1.75925811697279740268526933688248633, +1.34029761826041735925210248591354756, +1.66813863423107291133675815296833492, +1.48622831813129046656129872897939431, +1.45150247842000333621249332635074759, +1.85266993899202646663394832876459796, +1.15140550388171907454071247374791000, +1.45901737918373995089866415897133901, +1.24513153469663400350436255035462634, +1.90602362789093054738604055807284613

504reltol = sqrt(epsilon(1._TKC))

505reltol

506+0.138777878078144567552953958511352539E-16

507isClose(data, adat, reltol = reltol)

508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

509call setAsserted(all(isClose(data, adat, reltol = reltol)))

510

511

Test:: test_pm_fftpack

Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

If you use any parts or concepts from this library to any extent, you must acknowledge the usage by citing the relevant publications of the ParaMonte library.
If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library, you must also ask the end users to cite this original ParaMonte library.

Copyright: Computational Data Science Lab

Author:: Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 1567 of file pm_fftpack.F90.

The documentation for this interface was generated from the following file:

/home/amir/git/paramonte/src/fortran/main/pm_fftpack.F90